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Basic orogramminq 1 anguaoe for use on the PDP-11/50 computer 
system has been described. The implementation consists of a 
compiler which generates code to be assembled and loaded 
into the comouter system. An interface with C programs in 
the system library^ which allows extended Basic to perform 
as an extensive graphics lannuage# has been discussed. Tne 
design goals/ solutions# and recommendations for further ex- 
pansion of the system have been presented. The compiler was 
implemented in the C-orogrammi ng 1 ancuage with the U^JIX 
operating system as supported by the PDP-11/50 at the Naval 
Postgraduate School Computer Laboratory. 
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I . INTRODUCTION 



A. HISTORY OF THE BASIC LANGUAGE 



The Beginner's All-Purpose Symbolic Instuction Code 
(BASIC) was developed at Dartmouth College to orovide a sim- 
ple^ interactive lanauage for liberal arts students with 
specific applications in scientific computation. In order 
to meet this goalf only a limited vocabulary of instructions 
was included in the original definition of Basic* There was 
no concept of data typing and there were no default condi- 
tions to memorize* The interactive nature of programming 
provided an ideal man/machine interface for creating and de- 
bugging programs^ while the features of the 1 anguage were 
well-suited for the expression of engineering and mathemat- 
ics problems* Since this environment satisfied the needs of 
a wide range of potential computer users# Basic was procured 
for adaptation by a number of universities and commercial 
firms* In particular# timesharing service bureaus expanded 
computer usage among non-comouter specialists by providing 
its customers with the Basic language* This led to the 
development of numerous dialects of Basic and to many exten- 
sions intended to satisfy the uniaue needs of various users 
[ 1 ] * 
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As the use of Basic increased and extensions to the 



languaqe became more widespread^ the need for standardiza- 
tion became an industry wide concern. In I97a, this concern 
finally led to the formation of the X3J3 committee of the 
American National Standards Institute which was tasked with 
formulating a proposed standard for the Basic programming 
language. The result of an extensive effort was the Pro- 
posed American National Standards Institute (ANSI) report on 
a proposed standard for Niinimal Basic [21. The proposed 
standard established a minimum set of features which should 
be included in the implementation of a Basic language pro- 
cessor. while the proposed standard provided arithmetic and 
very simple strina orocessina capabilities/ it did not con- 
sider the more extensive features/ i.e. multi -program inter- 
facing and extensive predefined functions/ which had ini- 
tially led to the neeo for standardization. In a recent ar- 
ticle [31/ Lientz compared the different commercially avail- 
able Basic language processors. This survey inaicated that 
most Basic processors provided similar features and included 
extensive facilities beyond those in the proposed ANSI stan- 
dard • 

B. OBJECTIVES OF THE EXTENDED BASIC LANGUAGE 

Extended Basic was designed to provide all the arithmet- 
ic processing features of the proposed standard for Basic as 
well as extensions ana enhancements to the language for use 
at the Naval Postgraduate School. These extensions included 



Q 



multi -dimensional arrays^ loaical operators for numeric and 



string quantities/ string manipulation/ and seauential ac- 
cess to external files. Further/ extended Basic retained 
the original concepts of Dartmouth Basic while freeing the 
programmer from many of the original limitations. Enhance- 
ments included improved control structures and features to 
enhance increased readability. Extended Basic also attempt- 
ed to maintain grammatical comoatioility with existing ex- 
tensions to Basic/ particularly those in use at the Naval 
Po s t g r adua t e School . 

An additional goal of extended Basic was to provide 
non-computer scientists with a more managable high level 
language capable of interfacing with other subsystems sup- 
ported on the PDP-11 at Naval Postgraduate School. Examples 
of such subsystems are the procedures which drive the vari- 
ous graphics devices found in the computer laboratory. The 
primary UNIX system graphics language is C [111 which pro- 
vides support for the subsystems in the PDP-11. 

Currently included within UNIX are a dialect of Fortran 
[12]/ the Fortran preprocessor [131 RAT FOR/ an interpreter 
for a highly specialized dialect of Basic [1^1/ produced by 
Bell Laboratories [^1/ Digital Eauioment Corporation's FOR- 
TRAN IV PLUS/ and the UNIX assembler [7] . None of these 
languages were entirely suited to this special araohics en- 
vironment as they existed in the system. Extended Basic is 
an easily learned languaae which is readily adaptable to the 
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student environment and enhances the graphics capabilities 
in the laboratory. 



Unlike many existing implementations/ extended Basic was 
not implemented as a purely interpretive language. A source 
program is compiled/ generating an assembly language file. 
This code is then assembled and loaded with the Basic li- 
brary/ and other libraries as specified by the user/ includ- 
ing the C library/ the various graphics device libraries/ 
and any user designed libraries which may exist for particu- 
lar implementations. The compilation/ assembly and loading 
actions are called by a program/ LBAX, which is resident in 
the UNIX system. Usage of the program is aescribed in Ap- 



pendix II 



II 



LANGUAGE SPECIFICATION 



In the following section^ the Oartnnouth Basic language 
and the ANSI oroDosed standard will be reviewed^ followed by 
a discussion of the features of extended Basic which differ 
from Dartmouth Basic and the oroDosed ANSI standard. These 
features include extended arithmetic processing^ improved 
readability^ expanded control structures^ string man i pula* 
tionf external file access^ and program access to system 
software for graphics interface. 

A. THE PROPOSED STANDARD FOR BASIC 
1. Dartmouth Basic 

Dartmouth Basic is a statement oriented language. 
Each statement consists of a line numoer and a command. Da- 
ta is either numeric real or character string with no dis- 
tinction being made between types of numeric data. Identif- 
iers terminated by a dollar sian refer to string variables^ 
while all other identifiers reference numeric Quantities. 
Identifiers consist of only a single letter or a letter fol- 
lowed by a dollar sign. Arithmetic operations^ defined on 
numeric data onlvf are represented bv the infix operators +# 
-f /f and T (exponentiation). Unary operations are de- 
fined by the prefix operators f and -. Both data types may 
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be compared using the infix relational operators < r <- f >/ 
>=/ and <>• One and two dimensional numeric arrays are suo- 
ported. Finally/ a limited number of predefined algorithms 
perform elementary function evaluation t5] • These include 
ABS/ ATM, COS/ EXP, INT/ LOG/ RND/ SGN/ SIN, SQR/ and TAM. 
A complete descriotion of these predefined functions is 
presented in Appendix I. 

Dartmouth Basic is intended to be an interactive 
language with both editing and oroqram execution occurinq in 
the same environment. Therefore/ most Dartmouth style Basic 
implementations rely on line numbers to play an important 
part in the editing function of Basic. 

2. The Proposed ANSI Standard 

The proposed ANSI standard [2] incorporates all the 
features of Dartmouth Basic and adds the following state- 
ments: 

ON randomize DEF 

OPTION STOP 

With the exception of the OPTION statement/ most existing 
Basic implementations include all of these additional 
features. These extensions are described as they exist in 
this implementation in Appendix I. The OPTION statement is 
used to specify whether the lower bound of an array is zero 
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or one 



Most existing Basic 1 anquage orocessors ao well 
beyond the proDosed ANSI standard to provide file-handling 
ability^ formatted outout/ string manioulation/ matrix 
operations/ and a multitude of oredefined functions. The 
survey by Lientz [3] documents these extensions for many 
large and mini-comouter manufacturers/ and for a number of 
timesharing services. 



B. FEATURES OF THE EXTENDED BASIC LANGUAGE 



Extended Basic was designed to maintain compatibility 
with the proposed ANSI standard while extending the language 
to incorporate such features as string processing and exter- 
nal file access. Enhancements were also included to provide 
additional control structures and increased readability. In 
this section the features of extended Basic which do not ap- 
pear in the proposed ANSI standard will be discussed. Ap- 
pendix I includes a complete description of the language. 



1. Arithmetic Processing 



Extended Basic adds to arithmetic processing by sup- 
porting multiple dimensional arrays. All arrays must be 
dimensioned prior to usage in the program and the same iden- 
tifier may not serve as both an array/ whose elements are 
subscripted/ and a simple non-subscrioted variable. Logical 
binary operators AND/ OR/ XOR (exclusive or)/ and the unary 
operator NOT are provided for the logical evaluation of 



numeric and string expressions. The relational operators 
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and 1= (not eaual) have been added to the set of logical 
operators for comoa t ab i 1 i t y with existing languages. User- 
defined functions^ defined using a DEF statements may have 
any number of oarameters. Howevers as with FORTRATif every 
function must have at least one oarameter. Functions must 
be defined prior to appearance. While functions may refer 
to other functions within the body of the definitions recur- 
sive references are not permitted. 

The OPTION statement is not implemented. Since the 
lower bound of every array is always zero and there are ntl 
elements allocated by the compiler for every arrays the user 
is provided the OPTION feature by default. Due to the 
manner in which the UNIX system effects external system 
callSs undimensioned subscrioted variables should not be 
useds as is conditionally allowed in Dartmouth Basic ana the 
proposed ANSI standarc. 



Arithmetic constants may be written in either in- 
teger or decimal form. All constants are viewed internally 
as double precision floating point numbers. Scientific no- 
tation is not implemented. Numeric constants are output in 
decimal form only. The columnar width of numeric output may 
be specified using the COL function. If columnar width is 
not specified f COL defaults to 10 columns. If the value 
exceeds the prescribed width, the field is filled with a 
string of question marks. 
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2 • Readab il i t y 



Readability has been irnproved by increasing variable 
name lengthf permitting free form input with statement con- 
tinuation# and by not requiring line numbers on all state- 
ments in the program. Historically# Basic permitted vari- 
able names consisting of a single letter or a letter fol- 
lowed by a number. This makes large orograms difficult to 
understana and debug. Extended Basic allows variable names 
to consist of UP to four alpha-numeric characters of both 
upper and lower case# except string variables which should 
include ’S’ in the second or third character position. 
Predefined functions may be written in upper or lower case; 
however# all characters in the name must be of the same 



case . 



Basic traditionally has restricted each statement to 
one line. Extended Basic provides the *’at” sign ( <5 ) as a 
continuation character# allowing multiple program lines to 
appear as one statement to the compiler. This is particu- 
larly valuable when using nested IF statements with the ELSE 
clause followed by another IF statement. All of the members 
of the primary IF statement could not be physically con- 
tained on one line on conventional timesharina input/outout 
devices. The followina example demonstrates the imoroveo 
readability provided by continuation: 



Ih 



i f X 



y then 3 



z = X ( i / i) 3 
e J se 3 

if X > y then 3 

z = w(i/i) - X 3 
else 3 

z = w ( i / i ) - y 

Both Dartmouth and the oroposed ANSI Basic include 
mandatory statement labeling because of the interactive 
editing feature of Basic. Extended Basic does not use 
internal interactive editing and subseauent program execu- 
tion. Changes are made to the program source code# using 
the UNIX text editor ana subseauently recompiling the pro- 
gram. Thus line labels are only necessary for use in con- 
trol structures. Examples of limited line labeling are 
found in the example proarams at the end of this section. 

The TAB function has not been implemented. The use 
of commas and semicolons to force columnation is not effec- 
tive. Partial consistancy with the croDosed standara has 
been maintained by providing a continuation flag for outout. 
V^hen a semicolon appears at the end of a print statement/ 
newline is not involved/ and the next output from a print 
statement will immediately follow the existing output. 



3. Control Structures 



Extended Basic has expanded the control structures 
included in standard Basic. These structures consist of the 
FOR, IF, GOTO, G0SU8, ON, STOP and RANDOMIZE statements. 
Extended Basic significantly increases the power of the IF 
statement by providing an optional ELSE clause and by allow- 
ing an executable statement to follow the THEN and the ELSE. 
An executable statement is further defined in Appendix I. 
Any such executable statement may be used within an IF 
statement. Additionally, the IF statement, which is classi- 
fied as a simple statement, may be used in the same manner 
as an executable statement in the ELSE clause. Thus IF 
statements may be nested to an infinite depth; however, only 
one executable statement may exist at the deeoest level. 

. String Processing 

Extended Basic contains features wnich orovide for 
general string manipulation. Strings are created dynamical- 
ly, mav vary in length to a maximum of 255 characters, and 
may be subscripted to one dimension to create a vector of 
strings. The predefined function LEN returns the current 
length of a string. All string variables and string array 
elements are initialized as null strings with a length of 
zero. Strings may be created and associated with a variable 
using the replacement operator (=), an INPUT statement, or a 
read Statement. A string entered from the console or read 
from an external file may not be enclosed in guotation 
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markSf but should be delimited by newlines. A string en- 
tered from t^he console or redirected by system editing 
through an external file may be terminated Dy a quotation 
mark or the newline symbol/ *\n*/ which is equivalent to the 
ASCII line feed control character. Strings appearing in a 
data statement within the oroaram must be enclosed in quota- 
tion marks since they form an integral part of the orogram. 
An additional feature of extended Basic allows comparison of 
string variables and extraction of substring segments. 

Strings are compared using the same relational 
operators used for numeric data. Two strings are equal if 
and only if the strings have the same length and contain 
identical characters. 



Substring extraction is accomplished using substring 
notation/ i.e. A$(TiIn), This expression returns the sub- 
string of string variable A$ beginning at character position 
m and extending for a length of n characters. 

Other predefined functions are provided to facili- 
tate processing strings. The CHR? function converts a 
numeric argument into a single ASCII character while ASC 
converts the first character of a string argument into a 
nume r i c value. 

5 . Files 



Data 


may be transferred 


between 


an 


proqrani and 


external st o r age 


using 


the 



ext ended Basic 
file process i nq 
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feature* The OPEN statement identifies files and prepares 
them for access* The general form of an OPEN statement is: 

OPEN (<external file number> ^ <access mode>) <fi)e name> 

where the <file name> is a character string^ which is called 
a pathname in the UNIX heirarchical file system* If a file 
exists in the external file system with the name represented 
by the pathname/ then that file is opened* Otherwise/ a 
file is created with that name provided the <access mode> 
specifies writing* Each file currently in use is assigned a 
unique <external file number> by the programmer* This file 
number is used for all further references to the file while 
it remains ooen for access* Data is transmitted between the 
external file and the extended Basic program using the PEAO 
and PRINT statements with the <file option>: 

READ <fi)e ODtion>; <read list> 

PRINT <file oDtion>; <expression list> 

The <file option> specifies the file desired by referencing 
the <external file number> defined Dy a preceedinq OPEN 
statement* Access to a file may be terminated by the CLOSE 
statement* End-of-file may be determined with an IF END 
statement which has the following form: 

IF END ^ <external file number> THEN <valid statement> 

The <valid statement> may be any statement or e,xpression 
which is permissible with a standard IF statement* 
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6, Standard Inout/Outout 



Standard inout and output files are organized 
sequentially. The standard input file is a linear seauence 
of numeric and string data items separated by commas and 
newlines. Each reference to a sequential file retrieves the 
next data item with READ U , or writes another data item with 
PRINT With each READ# the variables in the read list are 
assigned values from the inout. Line terminators are treat- 
ed as record terminators. There is no conceot of a tradi- 
tional record since each record may be of indefinite lengtn# 
limited only by the medium through which the record is 
created. 



Likewise# with each PRINT command# values from the 
exoression list are written to the file. The expressions 
are written to the standard output as ASCII strings seoarat- 
ed by spaces except for the last data item in the list which 
is followed by a newline. The use of newlines in this 
manner allows files to be disolayen using system utilities 
and also allows files created with a text editor to oe read 
by extended Basic programs. 



Since data 
sequence of item 
match the seauence 
Mismatched data 
Numeric data types 
quence of zeros. 



type-checking is not accomplished# the 
data types in the expression list should 
of item data types in the external file, 
types will return undesirable values, 
reading string values will return a se- 
String data types reading numeric values 
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will return a string of nunfibers. 

Data may be apoended to external files by specifying 
the append access mode when an OPEN statement is used. This 
allows additional data items to be written at the end of the 
specified file. An 0PE^i specifying write access will create 
a new file if one does not already exist# or will reopen an 
existing file# overwriting and destroying any ore-existing 
data. 



7. External Interface 

This version of extended Basic was aesigned orimari- 
ly to enhance user ability to program with a simplistic 
language which could interface with other subsystems avail- 
able within the UNIX environment. This was accomplished by 
creating the EXTERN and CALL statements. 

The EXTERN statement defines# within the Basic pro- 
gram# those existing external subroutines which will be used 
for any software implementation. 

Examples of subroutines which may be used are PO/J 
and PRINTF [9]. POW returns the value of the variable x 
raised to the power of y# performing floating point exponen- 
tiation. PRINTF converts# formats and prints all arguments 
after the first argument# and under the control of the first 
argument . 
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These subroutines would be defined in a Basic pro- 



gram by : 



extern pow(doub1e#double) 

extern printf(8rcharfdoublefinteger) 

/jhile these examole procedures exist in the UNIX 
system library^ it is not necessary to use only existing 
procedures. The user may create procedures for specific 
needs by writing and compiling unique procedures in the C 
language [lllf and including the loadable version of the 
procedure as a parameter when the system compile command for 
BasiCf LBAX, is issued. 

Once a procedure has been defined as externals it 
may be used in the Basic Program by using the CALL state- 
ment. It would appear in the program as: 

call oow ( X f y ) 

call printf(aSfSumfprod) 

Examples of programs using the EXTERN ang CALL 
statements are provided in the next section. 

c. example programs 

1. Quadratic Factors 

This examole program computes the factors of a qua- 
dratic egua t i on . 
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rem quad factors of 6th degree oo 1 vnom i a 1 / Bairstow 
dim a(9),b(9),c(9) 
data 0, 1 ,-17.8,99.91 ,-261 .?10 
data 352.611,-139.106 
data 0,0,. 00001, 20, 5 

print "Demonstration program output" 
fori =3to9 
read a ( i ) 
next i 

read rl, si, test, lim, n 
print "The original oolynomial 
print "Power of x Coefficient" 

j = 9 - n 

for i = j to 9 

m = 9 - i 

print m," ", a(i) 

next i 

print "The quadratic factors are 
b( 1 ) = 0 
b(2) = 0 

c ( 1 ) = 0 
c (2) = 0 
r = r 1 
s = s 1 

5 knt = 1 

6 forj=3to9 

b(j) = a(j) + r*bCj-l) + s*b(j-2) 
c(j) = b(j) + r*c(j-l) + s*c(j-2) 
next j 

dnm = c(7)t2 - c(8)*c(6) 
if dnm 1= 0 goto 1 
r 1 = r 1 + 1 

si = si + 1 
goto 5 

1 deir = ( -b ( 8 ) *c ( 7 ) +c ( 6 ) *b ( ) ) /dnm 

dels = ( -c ( 7 ) ^b ( 9 ) tb ( 8 ) *c ( 8 ) ) /dnm 

r = de 1 r + r 
s = de 1 s + s 

if (abs(delr) + abs(dels) - test) <= 0 go to 3 
if (knt - lim) < 0 go to 2 

print "Does not Converge after ",lim," iterations 
stop 

2 knt = knt-tl 
go t o 6 

3 orint "xT2 + ",r," x + ",s 
n = n - 2 

t va 1 = n - 2 

if tval < 0 then i) 

print b(6)," x + ",b(7) 
if tval = 0 t hen 3 

orint b(5)," xT2 -t ”,b(6)/" x + ",b(7) 
if tval > 0 go to 9 
s t OD 

9 for k = 3 to 9 



me t hoo 
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a(k) = b(k-2) 
next k 
go t o 5 
end 



2 . Magi c Figures 



This program draws random symmetric fiaures on the 
TEKTRONIX graohics device. It uses four externally defined 
graphics routines which are located in the TEKTRONIX li- 
brary. They are NEW PAG/ AN MODE/ IN ITT/ and FIN ITT [93, 
NEW PAG erases the screen and returns the alphanumeric cursor 
to the NOME position/ the upper left hand corner of the 
screen [103. AN MODE sets the cursor to the alphanumeric 
mode* INITT requires one argument parameter specifying the 
character transmission rate between the computer and termi- 
nal to determine the delay to the screen when erasure is be- 
ing Performed* FINITT clears the buffers and moves the 
pointer to the position indicated by the two parameters. 
The externally defined procedure PLOT moves the pointer to 
the x/y coordinates indicated by the arguments ana plots a 
point at that location. The sixth externally defined 
routine is MOVE* These procedures are user defineo/ and are 
located in the user's external file area. MOVE causes the 
pointer to be moved across the screen without drawing on the 
surface * 



extern newpaol) 
extern anmode ( ) 
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extern i n i t t ( i n t ege r ) 
extern finitt(inteqerfinteger) 
extern olotCinteger, integer) 
extern mo ve ( i n t ege r , i n t ege r ) 

print "welcome to Magic -- enter your two numbers" 
100 input "number one "?fm 
input "number two ";fm2 
call initt(960) 
call newoag ( ) 
d=10 

^ / 
c = f m 
z = 0 
i =0 

3 b=rad ( z-90 ) 
x=cos(b) *d+5l2 
y=sin(b)*d+380 
if i <>0 go to 9 
call move(9*x,9*y) 
go t o 5 

4 call p 1 o t ( 9 * X , 9 * y ) 

5 z=z+c 

c = ( ” 1 ) *c * f m2 
fm2=l/fm2 
i = 1 

d=d+fm/90 
a = a + f m 

if a <27500 go to 3 
call move ( 0 f 9*780 ) 
call anmode ( ) 
go to 100 
end 



I. implementation 



A. SYSTEM DESIGN 

The extended Basic compiler was designed around a 
table-driven parser which checks statements for correct syn- 
tax and generates assembly code written into a UNIX file. 
This code is assembled and loaoed together with reguested 
and reguired libraries^ and other user defined program seg- 
ments/ by the assembler and loader when called by the execu- 
tive program/ LBAX, located in the system library. 

The decision to compile the source program and then as- 
semble the intermediate lanauage was based on the following 
cons i aerat i on : formal parsing technigues could be used to 
analyze the syntax of the source program making extensions 
to the language relatively easy. In this case r an LALR 
pa r se r-gene r a t o r YACC Ct>] / was used to automatically gen- 
erate the parse tables for the languaae. 



The following sections discuss the design of the extend- 
ed Basic compiler ana the implementation of the system exe- 
cutive proaram. Source listings of the programs are con- 
tained in the Program Listing section of this thesis. 
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compiler structure 



1. Compiler Organization 

The compiler structure requires one oass througn the 
source program to produce an intermediate assembly 1 anquaqe 
file. This pass writes all numeric constants to the numeric 
constant list/ determines the size of the symbol table and 
inserts symbols with associated attributes/ outputs inter- 
mediate level code to a file based upon parse actions and 
semantics/ resolves external calls and produces the code for 
access to external files. 

The intermediate level code is the UNIX assembly 
language. The formated output program/ to be loaded and ex- 
ecuted/ is in the oroner format for an assembly program. 
The format consists of text/ data/ and bss segments f7]. 

The text segment contains all the executaole in- 
structions and unmoaified data. The data segment may con- 
tain text/ but always contains initialized data which may be 
modified during execution. The bss segment contains unini- 
tialized data areas and is an extension of the data secment. 

The data segment contains the buffers for external 
file manipulation as illustrated in Figure 1. The number of 
buffers may not exceed fifteen and is determined by the OPEfJ 
actions in the parser. The length of each buffer is 518 
bytes/ six of which are utilized by the system Input/Output 
commands and 512 of which contain the string of data. 
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The Basic run-time "stack” is established in the bss 



segment by the comoiler and is fifty bytes in length. It 
uses the "last in^ first out" concept and grows downward to- 
ward the data segment. 

1 . Sc anne r 

The scanner analyzes the source orogramf returning a 
sequence of tokens to the oarser. In aod ition, the scanner 
processes data statements and recognizes continuation char- 
acters. Analysis of the first non-blank character in the 
input stream determines the General class of the next token. 
The remainder of the token is then scanned# placing each 
successive character into one of the accumulator vectors# ID 
or NUMSTRf used for ioentifier and numeric items respective- 
ly- 



If the scanner recognizes an identifier, it searches 
the reserved word list to determine if the ioentifier is a 
reserved word. If found# the token associated with that 
reserved word is returned to the parser. 

In the event the token is not a reserved word# it is 
validated fronj the symbol table returning an error code# if 
not defined# or the symbol table location index number# if 
defined. In order to be a valid member of the symbol table# 
an identifier must be a numeric- identifier, string- 
identifier, function- identifier, array identifier, or 
built-in function, Whenever a symbol not defined in the 
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symbol table is encountered/ it is verified to be a proper 
identifier/ occurring in a valid oosition in the input 
string/ and is then inserted into the symbol table. 

If the scanner recognizes a token as a numeric con- 
stant/ the number list is searched to determine if the 
number is already stored. If the number is not an element 
of the list/ it is inserted into the literal numbers table 
with its appropriate identifying attributes. 

2. Symbol Table 

The symbol table contains attributes of program and 
compiler generated entities such as identifiers and function 
names. The information stored in the symbol table is creat- 
ed and referenced by the compiler to verify that the program 
is semantically correct and to assist in code generation. 
Access to the symbol table is provided through a number of 
procedures ooeratina on the globally defined symbol table 
va r i ab 1 es . 

The Symbol table is a C 1 anguage structure as illus- 
trated in Figure 2. It may contain up to 200 individual ele- 
ments which are accessed as members of an array/ or may be 
identified by the attributes stored in each structure ele- 
ment vec tor. 

The final elements of the symbol table contain the 
names of the built-in (or predefined) functions. The symbol 
table grows downward with subsequent symbols preceeding 
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Symbol Table Structure 



structure "symtable" 







address_ i 


















address i , 





















Figure 2 



.attribute" 



qvmhol k 
f vnp 

H i man 

1 enot h 

AfT f 

dQOV 



.attribute" 



<=! vmhri 1 I 



b i m e n 

length 
Amt 

boov 



32 



the built-in function symbol names. Individual elements of 
the symbol table are located by any of a number of attri- 
butes as illustrated in Figure 2. Each entry in the symbol 
array refers to a structure consisting of six elements. 
Symbols may be selected based upon the entries in any one of 
the elements or any combination of elements. 

The attributes of a symbol are: 

Symbol. The null terminateo string of charac- 
ters representing the symbol. 

Type. A numeric value which c h a r ac t e r i 2 e s a 
symbol (-1 through 10) 

- the null parameters of external variables 

- a numeric identifier 

- a nume r i c array 

- a string identifier 

- a string array 

- a programmer aefined function 

- a numeric built-in function 

- a string built-in function 

- a simple format 

- a numeric format 

- a numeric string built-in function 

- an external variable 

Dimension. The dimension of an arrays the 

number of parameters for a function, 

y 
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Length, The lenqth of a string. 

Dope Vector. The index of the first element of 
the array’s dope vector as found in the dope array called 
DOPE. 

Amount. v^hen used with built-in functions^ this 
indicates whether or not the built-in function is being 
used. For arrays^ this contains the number of elements in a 
numeric array, or the number of bytes in a string array. 

The symbol table is operated on using specialized pro- 
cedures. LOOKUP is called with a pointer which identifies a 
symbol string. It invokes COM PAR repeatedly^ working upward 
from the first symbol through the built-in function list. 
COMPAR compares two string arguments. If the string is 
foundf LOOKUP returns the element number of the symbol. 
Otherwise -I is returned. INSERT is calleo with a pointer 
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Constant List 



The constant list stores literal numbers in a C 
language structure as illustrated in Figure 3. It may con- 
tain UP to 200 different literal numbers which may be ac- 
cessed as members of an array, or by determining the charac- 
teristics of each element's unique attributes. Each entry 
in the constant list refers to a structure of five elements, 
which contain the various attributes, 

The attributes of a constant are: 

Value, The actual value of the constant# stored 
in both double orecision floating ooint and integer form. 

Declaration. This identifies the context in 
which a number was first encountered which may be of tyoe 
floating point or integer, determined by the presence of a 
decimal point in the input string. For code generation only 
the floating point form is used. 

Use. This determines whether the value has been 
used as a number, a statement label# which may precede any 
statement# or a label# which is the statement label to which 
a branch statement or control structure refers. 

In the C environment# a real numoer which is read as 
data for an integer variable is truncated to integer form. 
Similarly, an inteaer numoer read as data for a real vari- 
able is transformed to real notation. v^^hen a value is 
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Constant Table Structure 



structure "numbers” 



.attributes" 





) 



n umbe r f 



F i au re 5 



stored in the Basic constant list/ 



it is stored in both 



forms# thus requiring a flag indicating the proper form to 
be accessed when the number is used during execution of the 
program, /Jhile the compiler produces output which performs 
arithmetic operations with double precision floating point 
numbers only# labels and statement labels should be of in- 
teger form. 

1. External Files 

External file management is implemented using the 
UNIX system calls OPEN and CLOSE# and system routines GETC 
and PUTC [ 9 ] . 

Each time the parser encounters an OPEN statement# a 
flag is set in an element of the compiler array FDS# which 
contains a file descriptor status for each external file. 
The element number corresoonas directly to the referencea 
external file. In the event a command to CLOSE a previously 



unopened 


file occurs# 


an error fl 


aq i s 


set for 


the 


corresponding file. 


S i m i 


larly# effort 


3 to 


READ f ro(T) 


o r 


PRINT to 


an unopened 


file 


will cause an 


error 


f 1 aq to be 


set 


in the FDS array. 


These 


errors are 


reoortea after 


the 


scanner 


comp 1 e t es 


i t s 


function# duri 


nq the 


accept ance 


ac - 



tions of the compiler, 

While the parser is generating assembly cooe# the 
string name of each referenced file is insertea as a con- 
stant in the assembly source program. This provides the 
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string argument which is required as one of the oarameters 
for the UNIX system routine OPEN. 

2 . Pa r ser 

The oarser is a table-driven pushdown automaton. It 
receives a stream of tokens from the scanner and analyzes 
them to determine if they form a sentence in the extended 
Basic grammar. As the oarser accents tokens^ one of three 
actions i 11 be oerformed. It may stack the token and con- 
tinue to analyze the source program by fetching another to- 
kenf or the Parser may determine that it has recognized the 
right part of one of the productions of the language and 
cause a reduction to take olace. Finally# the parser may 
determine that the current string of tokens does not produce 
a valid right part for a production and thus produces a syn- 
tax error message. 

3. Code Generation 

In addition to verifying the syntax of source state- 
ments# the oarser also acts as a transducer by associating 
semantic actions with reductions. Each time the parser 
determines that a reduction should take olace# the procedure 
SEMANT is called with the number of the Production passed as 
a parameter. The constant list contains the information re- 
quired to perform the semantic action associated with the 
selected production. The action may include generation of 
assembly language code and operations such as symbol table 
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man i DU 1 a t i on s and updating of 



the oarse arrays 



Some pro- 



ductions have no semantic actions associated with them. 

In the following section# the syntax of the 1 anguaqe 
is listed in BNF notation [8). A listing of the grammar 
with aopropriate semantic actions is orovided in the program 
listing following the apoendices of this thesis. The token 
'cr' means carriage return. 



a. Extended Basic Language Structure 



The overall structure of the extenaed Basic 
language is defined by the following syntax equations: 



(1) <prooram> <statement list> <end statement> 

(2) <statement list> ::= <simple statement> 

(3) I<statement list> <simole statement> 

(y) <end statement> <statement label> Ei\D cr 

(5) !EN0 cr 

(6) <simple statement> 

(7) 

( 8 ) 

(9) 

( 10 ) 

(in 

( 12 ) 

(13) 

(19) 

(15) 

( 16 ) 

(17) 

(18) 

(19) 

( 20 ) 

(21 ) 



<statement label> <exec state> cr 
<st a t emen t 1 abe 1 > 

<if statement> cr 
<st a t emen t 1 abe 1 > 

<oata statement> cr 
<statement label> 

<def statement> cr 
<statement label> 

<rem statement> cr 
<statement label> 

<extern statement> cr 
<for statement> 

<dim statement> 

<exec state> cr 
<if statement> cr 
<data statement> cr 
<oef statement> cr 
<rem statement> cr 
<extern statement> cr 

c r 



3<3 






■a«s 



1 



I 



( 22 ) <exec state> 

(23) 

(24) 

(25) 

(26) 

(27) 

(29) 

(30) 

(31 ) 

(32) 

(33) 

(34) 

(35) 



<pead statement> 
<restore state'nent> 
<ooen statement> 
<close statepient> 
<input state'nent> 
<readf statement> 
<orint statement> 
<write statement> 
<stoD statennent> 

<on statement> 
<branch statement> 

< 1 et s t a t emen t > 
<cal1 statement> 



b. Assignment Statements and Expressions 



The following syntax eguations are for property 
formed assignment statements and expressions. The types of 
operands which are acceptable with each of the binary opera- 
tors is shown in Table 1. The operano for the unary opera- 
tors + and - must be numeric quantities. The operand for 
the unary operator N'OT must be a logical Quantity. The 
grammar rules cause a check to be made/ insuring that the 
above semantic rules are followed. 



Checks are also made to insure that subscripted 
variables are dimensioned before being used/ that the 
correct number of subscripts is provided/ that each suo- 
scriot is of type numeric/ and that a subscripted variable 
is not used as a FOR loop index. Likewise/ checks are make 
on the number and tyoe of parameters in a function cal 1 to 
insure they match the function definition. In rule (46) the 
'!' appears literally in the eauation. 



(36) <let statement> 

(37) 



<string let> 

I <nume r i c 1 et > 



(38) 

(39) 

(90 ) 
(91 ) 

(92) 

(93) 

(99) 

(95) 

(96) 

(97) 

(98) 

(99) 
(50) 
(51 ) 

(52) 

(53) 
(59) 

(55) 

(56) 

(57) 

(58) 

(59) 

(60) 
(61 ) 

( 62 ) 

(63) 

(69) 

(65) 

( 66 ) 

(67) 

( 68 ) 

(69) 

(70) 
(71 ) 



(72) 

(73) 

(79) 

(75) 

(76) 



<s t r i ng 


1 e t > 




LET <s t r 


i ng r e f > - 


<string exp> 








! < s t r i ng 


r e f > = 


< s t r i ng e xp> 


< s t r i n g 


r e f > 




< s t r i nq 


i d> 












! < subs t r i 


nq re f > 










! < s t r i n g 


array 


r e f > 










! < s a r r a y 


subs t 


r e f > 




<sub s t r 1 


nq r e f > 


; : = <s t r i 


nq ref 


1 D> 


<subs t r 1 ng soec > 


<s t r i nq 


ref 


1 D> 


: : = < s t r i 


ng i d> 


( 





<substrinq soec> ' <numeric exo> ! <numeric exp> ) 



<numeric exp> <term> 

!<numeric exp> + <ter'n> 

!<numeric exp> - <term> 

! + <term> 

I ” < t e r m > 

<term> <prirnary> 

!<terw> * <primary> 

!<term> / <primary> 

<primary> <primary e1ement> 

I<primary> T <primary ele'T'ent> 

<primary e1ement> <nuweric ref> 

! <number> 

! <bi f > 

I( <nufperic exp> ) 

! < f unc re f > 

<numeric ref> <nu'neric id> 

!<array ref> 

<array ref> <arrav ref head> <numeric exp> ) 

(array ref head> <array id> ( 

!<array ref heaa> <nu'neric exp> , 



<bif> <string 


b i f 


re f > <s t r i ng exo> ) 






1 <nume r i 


c b i 


f r e f > < n ume 


r i c e xp> 


) 




I <nume r i 


c b i 


f nDarnn> 








<s t r 1 nq b i f 


r e f > 




<Strinq Dif> 


( 










1 

1 


<nume r 1 c b i f 


r e f > <nume r i c 


exp> / 


<nume r 1 c b i f 


r e f > 


• • • 


<nume r i c b i 


f > ( 












! <nume r 1 c b i 


f ref> <numeric 


e X p> 


<strinq exp> 




< s t r 


i nq r e f > 










1 

1 


<s t r 


A 

u 

c 










1 

1 


<st r 


n u m b 1 f > ( 


<nume r 1 c 


e X D> ) 





(77) <numeric bif nparnn> ::= <numeric bif> 

(78) <func ref> <func ref head> <numen*c exp> ) 



(7^) <func ref head> <function i d> ( 

(80) l<func ref head> <numeric exp> r 



(81 ) 


<st ri nq array 


ref> <strinq ref^lo> <numeric exp> 


(82) 


<sarray subst 


ref> <sarray subst lp> 










<subs t r i nq spec > 


(83) 


<sarray subst 


1 D> <string array ref> ( 


(8a) 


<n ume r i c 1 e t > 


LET <numeric ref> = <numenc exo> 


(85) 








!<numeric ref> = <numeric exo> 


(86) 


< r e I 


e X D> 




<rel exo> XOR <rel term> 


(87) 








!<rel exD> OR <rel term> 


(88) 








I<rel term> 


(89) 


< r e 1 


t erm> ; : 


= <rel term> AfJD <rel orimary> 


(90) 








!<rel primary> 


(91 ) 


< r e 1 


o r i ma ry > 


<numeric exo> <rel> <numeric exp> 


(92) 








l<string exp> <rel> <string exo> 


(93) 








! ( < r e 1 exD> ) 


(9a) 








I NO T ( < r e 1 exo> ) 


(95) 


< r e 1 > 




r 




(96) 






t - 
• * 




(97) 






> 




(98) 






< 




(99) 






< = 




(100) 






> 3 




( 101 ) 






<> 




(102) 






n * 




(103) 






< re 1 spec > 



c. Control Statements 



The control statements in extended Basic are de 
fined by the following syntax equations: 



(lOa) <for statement> <statement label> <for clause> 

<statement list> <next clause> 
!<for clause> <statement list> 
<next clause> 



(105) <statement label> 



<number> 



(106) 

(107) 

(108) 

(109) 

( 110 ) 
( 111 ) 
( 112 ) 

(113) 

( 119 ) 

(115) 

(116) 

( 117 ) 
( 118) 

(119) 

( 120 ) 
(121 ) 

( 122 ) 

(123) 

(129) 

(125) 

(126) 

(127) 

(128) 

(129) 

(130) 
(131 ) 

(132) 

(133) 

(139) 

(135) 

(136) 

(137) 

(138) 

(139) 
(190) 



<for c1ause> <for head> cr 

!<for head> STEP <numeric exp> cr 

<for head> FOR <for init> TO <numeric exp> 



<nex t c 1 ause> 



<f or init> = 
< i f St at ement > 



<e 1 se c 1 ause> 



;= <statefT'ent lapel> ^4EXT 



<numeric id> 



! NEXT 


<nutreric id> 


c r 


! NEXT 


c r 






1 <statement 


1 abe 1 > 


NEXT c r 


<numer i c 


i d> = 


<numer i c exp> 


; : = < i f 


c 1 ause> 


<e X ec 


s t a t e> 


!<i f 


c ) ause> 


<e 1 se 


c 1 ause> 




<e xec 


state> 




! <i f 


c 1 ause > 


<e 1 se 


c 1 ause> 




<if staterpent> 


! <i f 


head> <aoto> 


<numbe r> 


!<i f 


c 1 ause > 


<number> 


! <i f 


c 1 ause> 


<e 1 s e 


c 1 ause> 


: = <e xec 


s t a t e> 


ELSE 




I <numbe r> ELSE 





c r 



<nufTibe r> 



<if c1ause> <if head> THEN 



<if heaa> IF <re1 exp> 

!IF END ^ <numper> 



<stoP statement> STOP 



<rem statement> RE*^ 



<on 


statement> 


• • •• 


<on head> < 1 abe 1 > 


<on 


he ad> : : = 

1 

1 


< on 
<0 n 


b e q i n > 

head> <1 abe 1 > 


<on 


beg i n> ; : = 


ON 
! ON 


<nume r i c 
<nume r i c 


exp> <on case sel> 
exp> <on se1ector> 


<on 


case se 1 > 


1 

1 


GOSUB 
GO SUB 




<on 


se 1 ec t or> 


• • •“ 

1 

1 

1 

1 


THEN 
GOTO 
GO TO 




< 1 abe 1 > <nun'ber> 




<branch statement> 


: : = <qosub> < 1 abe 1 > 



!<qotol> <label> 
1 RETURN 



(1^1) <gosub> 

(ia2) 



; : = GOSUB 
!GO SUB 



(1^3) <gotol> goto 

(l^y) <goto> ii- GOTO 
(1«5) !GO TO 

d. Declaration Statements 



All subscrioted quantities in Basic should De 
declared prior to use in the program. The declaration 
statements in extenoeo Basic are given Pv the fpllowino syn- 
tax equa t ions: 



(1A6) <dim statement> :;= <sdim heao> cr 
(ly?) !<dim head> cr 

(1^8) <dim head> ::= <dim sarray head> <numcer> ) 
(1A9) !<dim head a1p> number> ) 

(150) <sdim head> ::= <dim head slo> <number> ) 

(151) <dim sarray head> ::= <sdim head> ( 



(152) <dim head lp> <statement label> DI^'^ 

(153) \0l'A 

(15A) !<sdim head> > 

(155) ! <o i m head> , 

(156) <dim head slp> <dim head 1 p> <sti‘ing i d> ( 

(157) <aim head alo> <dim head lo> <nu meric io> ( 

(158) !<dimheadalp><number>f 



(159) <data statement> ::= <data head> <number> 

(160) !<data minus> <number> 

(161) !<data head> <string> 



(162) <aata head> DATA 

(163) I<data head> <number> , 

(16U) l<data minus> <number> r 

(165) !<data head> <string> > 

(166) <data minus> ;;= <data head> - 



(167) <def statement> <def left part> = <numeric exp> 

(168) <def left part> DEF <def head> <numeric id> ) 



(169) <de f h ead> 

(170) 



:= <function id> ( 

I<def head> <numeric id> , 



e. Input/Output Statements 

The input/output statements in extended Basic 
are consistent with the ANSI proposed standards. Care 



should 


be 


exerc i sed 


i n 


the use 


of Punctuation in 


inout/output 


statements as defined bv 


the following syntax 


equat i 


on s : 










(171) 


<ooen 


s t a t emen t > 




< 0 Den head> 


<number> ) <strinq> 


(172) 


<ooen 


head> ::= 


OPEN 


( <number> / 




(173) 

(17a) 


< r ead 


statement> 


• • • 

• • • 

1 

1 


<read head> 
<read head> 


<nume r i c re f > 
<strinq ref> 


(175) 

(176) 

(177) 


< read 


head> ; : = 

» 

1 

1 

1 


READ 

< read 

< read 


head> <numeric ref> / 
head> <strinq ret> , 


(178) 


< i n p u t 


s t a t emen t 


> * • Z 


<inout head> <numeric ref> 



(179) !<inout heaO> <string ref> 

(180) < input head> Pi PUT 

(181) l<inout head> <string exo> ; 

(182) l<inout head> <numeric ref> f 

(183) !<inout head> <strinq ref> / 

(18^) <readf statement^ <readf head> <numeric ref> 

(185) !<readf head> <string ref> 

(186) <readf head> <read file> 

(187) I<readf head> <numeric ref> / 

(188) !<readf head> <strinq ref> f 

(189) <read fi1e> READ ^ <number> / <numeric exo> ; 

(190) JREAD tt <number> $ 

(191) <print statement> PRINT 

(192) !<orint head> <numericexo> 

(193) !<orint head> <strinq exp> 

(19^) |<print head> <format element> 

(195) !<orint head> <numeric exp> ; 

(196) !<print head><stringexo> # 

(197) l<orint head><format element> r 



as 



(198) <print head> ::= 


PRINT 








(199) 


< p r i n t 


h ead> 


<nume r i c 


e xp> , 


(200) 


< p r i n t 


h ead> 


<s t r 1 nq 


exp> , 


(201 ) 


<p r i n t 


h ead> 


< format 


el emen t > 


(202) 


<p r i n t 


head> 


<nume r i c 


exp> ; 


(203) 


<D r i n t 


head> 


< S t r i nq 


e xp> ; 


(209) 


<p r i n t 


head> 


< f 0 rma t 


exp> ; 



(205) <write state'nent> :t= <write head> <numeric exp> 

(206) l<write head> <string exp> 



(207) <write head> 

(208) 

(209) 



::= <wnte file> 

!< write head> <numeric exo> , 
!<write head> <strinq exo> , 



(210) <write file> ::= P9IMT ^ <number> , <nurreric exo> ; 

(211) [PRINT n <numoer> ; 



(212) <for’Tiat element> ::= <si'riple forfnat> 

(213) !<format left part> <nurr!eric exp>) 

(21^) <format left part> <nurrierjc forma t> ( 



(215) <restore statement> 5:= RESTORE 

(216) [RANDOMIZE 

(217) [RANDOMIZE ( <numeric exp> ) 



(218) <close statement> CLOSE ( <number> ) 



f. External Statements 



The external ana call statements in extendea 
Basic are the basis of the uniqueness of this implementa- 
tion. These statements provide interface capability with 
other system oroqrams and oroceaures. They are defined by 
the following syntax equations: 



(219) <extern statement> <extern head> 

(220) <extern head> EXTERN TYPE <numeric id> <oarm aef> 

(221) [EXTERN <numeric id> <oarm def> 

(222) [EXTERN & TYPE <numeric id> 

<oarm def> 

(223) [<externhead> t <numeric id> 

<parm aef> 

(229) <oarm def> 
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(225) 




1 


( ) 


(226) 




1 <oa rm 


(227) 




! <pa rm 


(228) 


<pa rm 


head> : : = 


( 


(229) 




1 

1 


1 <oa rm 


(230) 




( 

1 


1 <oa rm 


(231 ) 


<c a 1 1 


statement> 


(231) 






1 

1 


(232) 






1 

1 


(233) 






1 

1 


(23a) 






1 

1 


(235) 






1 

1 


(236) 


<cal 1 


h ead> : : = 


<cal 1 


(237) 






<c a 1 1 


(238) 






<cal 1 


(239) 






<c a 11 


( 2 a 0 ) 






<c a 1 1 


( 2 ai ) 






<cal 1 


(292) 






<ca 1 1 


(293) 


<ca 1 1 


nh ead> : : - 


: call 


(299) 


<c a 1 1 


shead> : : = 


: call 



head> TYPE ) 
head> & TYPE ) 



head> type r 
head> & TYPE / 

<c a 1 1 h ead> ) 

<ca 1 1 nhead> 

<ca11 head> <numeric exc> ) 
<ca11 head> <array ia> ) 
<call head> <string exp> ) 
<call head> & <numeric ia> ) 

nhead> ( 

nhead> = <numeric id> ( 
shead> = <numeric id> ( 
head> <numeric exo> , 
heaa> <array id> r 
head> <stn'na id> / 

Head> <numen'c id> r 

<numeric id> 

<Strinq ref> 



Table 1 



Permissable Variable Types With Binary Operators 



string 

nume r i c 



s t r i nq 
type 1 
e n ro r 



numeric 

error 

type \ t type 2 



type 1 operands 

< > = 

< = <> 

> = 

= (assignment) 



type 2 operands 

f r 

- and 

* or 

/ X o r 



afi 



I 



RECOMMENDATIONS FOR FUTURE DE VELOP-'^ENTS 



A number of aaditional extensions to this Basic 
languaae could be made. These include formatted 
i npu t /ou t ou t f a TRACE statement for debugging/ additional 
string orocessing features/ scientific notation/ and random 
access for external files. 

Basic orocessors have traditionally implemented format- 
ted inout/outout by modifying the orint statement as shown 
below: 

PRINT USING <format string> ; <exoression> 

The format string contains a description of the format into 
which the values in the expression list are to be placed. 
This might be implemented using the PRINTF routine in tne 
UNIX library or by allowing the user to directly u'se PRINTF 
vice the CALL and EXTERN statements. 

A TRACE instruction/ similar to that orovioed in many 
COBOL implementations/ would list the source orogram line 
numbers as each statement was executed and optionally print 
the current values of selected variaoles. An accompanying 
UNTRACE statement would disable the trace. This could be 
easily imolemented using flags. 

Additional string operators could include a search 



function which 



would determine the oosition of 



one 



string 



within another^ and a substring replacement operation whicn 
would replace a substring with another (oossibly null) 
string. String concatenation could be implemented for use 
in building strings by buffered inout/outout and using the 
UNIX routines GETC and PUTC. 



Random access to elements of externa! f'iles would be 
enhancing for file management/ but would not greatly in- 
crease the flexibility of the existing file manacement 
methods used in graphics work. This might be accomplished 
by creatina an array of dope vectors at the oeginning of 
each external file. Each vector would contain the beginning 
address of each record and the length of the record. 



Sc 

band i ng 
printed 



entific notation would enhance numeric output by ex- 
the range of numbers which could be comfortably 
on an output page. 
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II 



CONCLUSIONS 



The extended Basic compiler presented in this thesis is 
a working software package. It has demonstrated that it is 
capaole of performing graphics work in the Naval Postgradu- 
ate School Computer Laboratory/ and will provide a measur- 
able improvement to graphics efforts of both Computer Sci- 
ence and non-ComPuter Science students than was previously 
afforded by the UNIX system library of programming 
languages. 



Improvements noted in the 
not represent all possible 
developed or generated durinp 
this Basic compiler. 



Recommendations section ao 
improvements/ but only those 
development and testing of 
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APPENDIX I 



EXTENDED BASIC LANGUAGE MANUAL 



Elements of extended Basic are listed in alphabetical 
order in this section of the thesis. A synopsis of each 
element is given# followed bv a descriotion ano examples of 
its use. The intent is to orovide a reference for the 
features of this implementation of BASIC and not to teach 
the BASIC language. 



A program consists of one or more properly formed ex- 
tended Basic statements. An END statement# which must oe 
present# terminates the oroqram# and additional statements 
are ignored. The ASCII character subset# consisting of al- 
ohanumerics and the scecified soecial characters# is accept- 
ed . 



In this section# the "synopsis'* oresents the 
form of the element. Square brackets# []# denote an 
al feature# while braces# {># indicate that the 
section may be reoeated zero or more times. Terms 
in < > are either non-terminal elements of the 1 
which are further defined in this section# or termi 
bols. All special characters and capitalized words 
m i na 1 symbo 1 s . 



gene r a 1 
OD t i on- 

enclosed 
enclosed 
anguage # 
na 1 s y m - 
are t er- 
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ELEMENT 



ABS 



ABS predefined function 
SYNOPSIS: 

ABS ( <expression> ) 

DESCRIPTION: 

The ABS function returns the absolute value of 
<expression>. The argument should evaluate to 
floating point number. 



EXAMPLES: 

ABS (X) 
ABS(X*Y) 



the 

a 
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ELEMENT 



ASC 



ASC predefined function 
SYNOPSIS : 

ASC ( <exDression> ) 



DESCRIPTION; 

The ASC function returns the ASCII nurreric 
the first character of the <expression>. The 
should evaluate to a string. 



EXAMPLES; 

ASC(A$) 



value of 
argument 



ASC(”X“) 



ELEMENT 



A TAN 



ATAN predefined function 
SYNOPSIS : 

ATAN ( <expression> ) 

DESCRIPTION: 

The ATAN function returns the arctanaent of the <ex- 
pression>. The argument should evaluate to a floating 
po int number. 



examples: 

ATAN (X ) 

ATAN(SQRT(SIN(X) ) ) 

PROGRAMMING NOTE: 

All other inverse trigonometric functions mav be com- 
puted from the arctangent using simple iaentities. 
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element 



CALL 



CALL statement 



SYNOPSIS: 

(<1ine number>] CALL ( <variable> = 1 
<identifier> [ ( <exoression> 

{ r <express i on> } ) ] 



DESCRIPTION: 



The CALL statement references an externally defined C 
orocedure or function. The ootional <variable> ir. av be 
either a numeric identifier or a string reference. 
The call <identifier> may be uo to 9 characters in 
length. If the <variable> is oresent/ then the <iden- 
tifier> references a function and returns a value. If 
the <variable> is absent/ the <identifier> references 
a procedure and returns no value. 



A CALL statement should be preceeded by an EXTERN 
statement defining the form and nature of the <iden- 
t i f i e r > . 



A CALL statement may have an infinite number of argu- 
ments which should each be valid <exoressions> 
evaluating to numeric or character values. Arguments 
may further evaluate to array oointers if previously 
declared as such in the EXTERN statement. If the ar- 
gument is declared to be of type char/ then the argu- 
ment value may consist of one character. To pass a 
string of characters as an argument/ the araument may 
be of type 8. char/ which implies a vector of charac- 
ters/ or a character string. 



If a call statement has no arguments/ then the entire 
argument list may be omitted from the statement. 



examples : 

CALL j = test I ("test X") 

call sink( ship ) 

call aS(3!5) = strg( less ) 

CALL 1 i St 

call mo V abs ( x / y ) 
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PROGRAMMING NOTE 



<i dent i f i ers> 'T'ay be uo to nine characters 



i n 1 engt h . 
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ELEMENT 



CHR$ 



CHR$ predefined function 
SYNOPSIS : 

CHRS ( <exoression> ) 



DESCRIPTION: 

The CHR$ function returns a Character string of length 
1 consisting of the character whose ASCII equivalent 
is the <exoression> truncafed to an integer rrodulo 
128. The argument may evaluate to a floating ooint 
number. 



EXAMPLES: 

CHRS ( A ) 

CHR$( 12) 

CHRSC (A + B/C) *SIN(X) ) 

PROGRAMMING NOTE: 

CHR$ can be used to send the standard ASCII control 
characters such as a formfeed to the output device. 
The following statement would accomplish this: 

PRINT CHRSnO) 
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ELEMENT 



CLOSE 



CLOSE statement 



SYNOPSIS : 

(<Hne number>] CLOSE (<constant>) 



DESCRIPTION: 

The CLOSE statement causes the file soecified by its 
<constant> to be closed. Before the file may be 
referenced again it shoula be reooeneo using an OPEN 
statement . 

A terminal error occurs if the soecifieo file has not 
previously aopeared in an OPEN statement. 



examples : 



CLOSE (1) 



programming NOTE: 

On normal completion of a orogram all open files are 
closed. If the program terminates abnormally it is 
possible that files created by the orogram may be 
lost. 
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ELEMENT 



COL 



COL predefined function 



SYNOPSIS; 

COL ( <expression> ) 



DESCRIPTION: 



The COL function defines the column width for a numer- 
ic output. The default width value is 10 digits/ in- 
cluding the sign and the decimal point. 



The COL function should be used only 
men t . 



in a PRINT state- 



EXAMPLES; 

print COL (12) 
print C0L(i*j) 
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ELEMENT 



<constant> 



<c ons t ant > 



SYNOPSIS: 

[<sign>] <integer> [.J [ <integer> ] 

["] <character strinq> ["] 



DESCRIPTION: 

A <constant> may be either a numeric constant cr a 
string constant. All numeric constants are stored as 
floating ooint numbers. Strings may contain any ASCII 
character exceot >» which may be reoresented as >. 

Numeric constants may be either a signed or unsigned 
integer or decimal number. String constants may ce 
up to 255 characters in length. Strings entered from 
the console for an INPUT statement may not contain 
quotes/ however/ a double quote or a newline may be 
used to terminate a string during INPUT or READ. 
Strings entered from a data statement should oe en- 
closed in Quotes/ since they are found in the Program. 
Strings read from a file may not contain quotes. 



examples : 

10 

-100. 75639 

"THIS IS THE ANSi^ER" 



programming NOTE: 



The line continuation character (ol) may not be 
the program for carrying strina constants to 
line. 



used in 
another 
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ELEMENT 



COS 



COS predefined function 
SYNOPSIS: 

C0S( <expression> ) 

DESCRIPTION: 

COS is a function which returns the cosine of 
pression>. The argument should evaluate to a 
point number expressed in radians. 



EXAMPLES: 

COS(B) 

COSISQRT (X-Y) ) 



the < ex- 
f 1 oa t i nq 
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COSH 

ELEMENT ; 

COSH predefined function 
SYNOPSIS: 

COSH ( <exoression> ) 

DESCRIPTION: 

COSH is a function which returns the hyperbolic cosine 
of the <e X p r e s s i on> . The argument shoulo evaluate to 
a floating point number. 

EXAMPLES: 

COSH(X) 

C0SH(Xt2+YT2) 



ELEMENT 



DATA 



DATA statement 



SYNOPSIS: 

(<line number>3 DATA <constant> <constant>> 



DESCRIPTION: 

DATA statements define floatinq ooint and string con- 
stants which are assigned to variables using a READ 
statement. Any number of DATA state">ents may occur in 
a program. Strings and numeric elements are stored 
separately. The ordering of string and number ele- 
ments in a data statement need not match the ordering 
in the corresoonding read statement. Tne first occu- 
rance of an element type will be read when demandea. 
The constants are stored consecutively for each tyoe 
in a data area as they aooear in tne oroaram and are 
not syntax checked by the compiler. Character strings 
Should be enclosed in quotes. Data elements should be 
separated by commas. 

Should either tyoe of data be exhausted, a restore for 
that tyoe only is generated. If a type is requested 
when no data is defined, a terminal error results. 



examples: 

10 DATA 10.0.11.72.100 

data "Th-is is a s t r i nq . " , 5 , 1 0 . a , " T h e End" 

PROGRAMMING NOTE: 

The RESTORE comm. and may be used to reread a data line. 
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ELEMENT : 



DEF 



DEF statement 
SYNOPSIS: 

[<line number>] DEF <function name> (<variable> 

it <variable>}) = <expression> 



DESCRIPTION; 

The DEF statement specifies a user defined function 
which returns a floating ooint number. One or more 
arguments are oassed to the function and are used in 
evaluating the expression. The values may be in 
floating ooint form. Recursive calls are not oermit- 
ted. 

The <expression> in the define statement may reference 
<variables> other than the dummy arguments^ in whicn 
case the current value of the <variable> is used in 
evaluating the <exoresss i on> . 

The first two alohanumerics of the <function name> 
should be FN/ F n , fN or fn. The <function name> may 
not exceed a total of four characters. 



examples: 

10 DEF FMA(X,Y) = X + Y - A 

DEF FNC(A,B) = A + B - FNA(A,B) + D 
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ELEMENT 



DEG 



DEG predefined function 
SYNOPSIS: 

DEG ( <expression> ) 

DESCRIPTION: 

The DEG function converts the floating point value of 
the <expression> into deqrees. The <expression> 
should evaluate to a floating point value in radians. 

EXAMPLES: 

DEG ( 3.1 a 159 * j ) 
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ELEMENT 



DIM 



DIM statement 



SYNOPSIS: 

1) [<line number>) DIM <iaentifier> (<subscripf list>) 

{/<iaentifier> (<subscriot list>)} 

2) l<line number>) DIM <identitier> (<constant>) 

[ (<subscript list>) I 
{f<icentifier> (<constant>) 

[ (<subscriot 1ist>) ]} 



DESCRIPTION: 



The dimension statement statically allocates space for 
floating Point or string arrays. String array ele- 
ments may be of any length up to 327b7 characters. 
String array length should be specified. Initiallyr 
all floating point arrays are set to ^ero and all 
string arrays are null strings. An array may be 
dimensioned explicitly/ no default ootions are provid- 
ed except for string arrays which default to 1 element 
if the <subscript list> is absent. Arrays are stored 
in row major order. The <subscript list> may consist 
of integers. All subscripts have a lower bound of 0 
and an upper bound of n/ for a total of n+1 elements. 



The type 1 DIM statement above refers specifically to 
an array of numeric elements. Type 2 refers to string 
arrays. Both types of arrays may be combined in one 
DIM statement/ however all the required elements in 
the synopsis may be present for each type. 



<constant> may be included for all strina arrays and 
may not be present for floating point arrays. String 
array elements point to vectors of character strings 
with a maximum number of characters/ or string length/ 
equal to <constant>. The <subscript list> for a 
string array may not have more than one element. 



EXAMPLES: 

DI^ A(10/20), B(10) 
DIM B$(2) (5)/C(7) 
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ELEMENT : 



END 



END statement 
SYNOPSIS : 

[<line number>] ENO 
DESCRIPTION; 

An ENO statement indicates the end of the source pro- 
gram. If any statments follow the END statement they 
are i gno r ed . 



EXAMPLES: 

10 END 
ENO 

PROGRAMMING NOTE: 

If a STOP statement does not oreceed an ENO statement 
somewhere in the program, a STOP statement is automat- 
ically .inserted before the END statement. 
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ELEMENT 



<exec statement> 



<exec statement 



SYNOPSIS : 






[<1 


i ne 


numbe r> 1 


[<1 


i ne 


numbe r> 1 


[<1 


1 ne 


numbe r> 1 


[<1 


i ne 


n u m b e r > ] 


[<1 


i ne 


numbe r> J 


[<1 


1 ne 


numbe r>] 


[<1 


i ne 


numbe r> 1 


K1 


i ne 


numbe r> 1 


t<l 


i ne 


numbe r> 1 


[<1 


i ne 


numbe r > 1 


t<l 


i ne 


numbe r > 1 


[<1 


i ne 


numbe r> 1 


[<1 


i ne 


numbe r > 1 


t<l 


i ne 


number>] 


[<1 


i ne 


numbe r > 1 


[<1 


i ne 


numbe r> 1 


[<1 


i ne 


numbe r > 1 


[<1 


i ne 


n umbe r > 1 


[<1 


i ne 


numbe r > ] 



DESCRIPTION: 



CALL statement <cr> 

CLOSE statement <cr> 

END statement <cr> 

EXTERN statement <cr> 
GOSUB statement <cr> 

GOTO statement <cr> 

INPUT statement <cr> 

LET statement <cr> 

NEXT statement <cr> 

ON statement <cr> 

OPEN statement <cr> 

PRINT statement <c r> 
PRINT S statement <cn> 
RANDOMIZE statement <cr> 
read statement <cr> 

READ statement <cr> 
RESTORE statement <cr> 
RETURN statement <cr> 
STOP statement <cr> 



An <exec statement> is the only allowable 
statement in an IF statement construct. 
ments> may aooear as <simnle statements> 
the orogram . 



NOTE: 



executable 
<exec state- 
t h roue h ou t 



See <s t at emen t > 



EXP 

ELEMENT: 

EXP predefined function 
SYNOPSIS: 

Exp ( <expression> ) 

DESCRIPTION: 

The EXP function returns e (2.71828,,..) raised to the 
power of the <exoress i on> . The argument should evalu- 
ate to a floating point number. 

examples : 

EXP(X) 

EXP(LOGCX) ) 
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ELEMENT 



<express i on> 



<express i on> 



DESCRIPTION: 



Expressions consist oT algebraic combinations of vari- 
ables/ constants# and operators. The hierarchy of 



operators i 


s : 














1 ) 


( ) 














2) 


t 














3) 


^ f 


/ 












a) 


+ f 


•f unary fr unary 


- 








5) 


re 1 


at i ona 1 ops < , 


<= / 


> f 


>= , 


— f 


<> , , 1 = 






LT, 


LE, 


GT, 


GE 


, EQ 


, NE 


6) 


NOT (<exoression>) 












7) 


AND 














8) 


OR, 


XOR 












Relational 


operators result 


1 n 


a 


0 


i f 


false and 


nonzero (1) 


i f 


true. String 


V a r i ab 1 e s 


may 


be operated 



on only by relational operators. Mixeo 
numeric comparisons are not permitted. 



string ana 



The t h ree t yoes 
and boolean. 



of expressions are strina, arithmetic 



EXAMPLES: 

X + Y 

(A <= B) OR (C$ > 0$) / (A - B AND D) 
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ELEMENT 



EXTERN 



EXTERN stat efnen t 



[<Hne number>] EXTERN [<type>l <identifier> ( (<type> 
<type> })] 



DESCRIPTION: 

The EXTERN statement declares the type of procedure or 
function referencea by the <identifier> in a CALL 
statement. The <identifier> is from an externally de- 
fined library and cannot be internally reaefined by 
the user. The EXTERN statement should preceed/ and 
may appear at any point prior tOf the CALL statement. 

If the first optional <type> is missinq^ then that 
<type> defaults to integer. 

The five varieties of <tyoe> are integer^ float/ dou- 
ble/ char and addr. These types may alternately be 
declared as arrays by preceeding the type by 8./ as in 
& integer/ & float/ X double/ & char and 4 adar. 

The EXTERN statement may declare an infinite numper of 
arguments for the procedure or function. 



EXAMPLES: 




extern 


g i n i 1 1 ( 


extern 


i n t ege r 


extern 


& char 


extern 


ge r ase ( 


extern 


newoag 



integer) 

move( i nteqer/ i nteger) 
Amt( S. float/ 4 char) 

) 
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ELEMENT 



FOR 



FOR statement 



SYNOPSIS; 

(<1ine number>l FOR <index> = <exDression> TO 

<exDression> (STEP <express i on>] 
<statement Hst> 

[<line number>] NEXT (<index>J 



DESCRIPTION; 

Execution of all statements between the FOR statement 
and its co r re SDond i nq NEXT statement is repeated until 
the indexing variable reaches the exit criteria. If 
the step is oositive» the loop exit criteria is that 
the index exceeds the value of the TO <express i on> . 
If the step is negative/ the inaex should be less than 
the TO <exoression> for the exit criteria to be met. 

The <index> may be an unsubsc r i ot ed variable and is 
initially set to the value of the first <exoression>. 
If the exit criteria as met on initial entry/ 0 execu- 
tions of the loop are performea. If the STEP clause 
is omitted/ a default value of I is assumed. A step 



of 0 


may 


be used to 


loop indefinitely 


EXAMPLES; 


FOR 


I = 


1 TO 10 STEP 


3 


FOR 


INOX 


= J*K-L TO 


1 0 * S I N ( X ) 


FUR 


I = 


1 TO 2 STEP 


0 
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I 




ELEMENT 



<funct ion 



name> 



< f unc t ion name> 



SYNOPSIS: 

FN< i den t i f i e r > or f n < i den t i f i e r> 

DESCRIPTION: 

Any <identifier> starting with in, ih , FN, or Fn 
refers to a user-defined function. The <function 
name> should appear in a OEF statenent prior to ao- 
oearinq in an <e*P ress i on> . 

There may not be any soaces between the FN or fn and 
the <identifier>. 

examples : 

FNA(x) = xT2 
fnAr(i,j) = i*j 
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ELEMENT 



GnSUB 



GOSUB statement 



SYNOPSIS: 



[<line number>l GOSUB <line number> 
[<)ine number>] GO SUB <line number> 



DESCRIPTION: 



The address of the next sequential 
saved on the run-time stacks 
transferred to the subroutine labeled 
number> followinq the GOSUB or GO SUB 



instruction 
and control 
with the <1 



EXAMPLES : 



10 GOSUB 


300 


GO SUB 


100 



i s 
i s 
i ne 
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ELEMENT 



GOTO 



GOTO statement 
SYNOPSIS : 

[<1ine number>) GOTO <line number"> 
[<line number>] GO TO <line number> 



DESCRIPTION: 

Execution continues at the statement labeled with 
<line number> following the GOTO or GO TO. 



EXAMPLES: 

100 GOTO 50 
GO TO 10 



the 
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<identifier> 

ELEMENT : 

< i den t i f i er> 

SYNOPSIS: 

<letter> { <letter> or <number> } [ S ] 

DESCRIPTION: 

An identifier begins with an alohabetic character fol- 
lowed by three a 1 phanuTie r i c characters. If the second 
or third character is a dollar sign the associated 
variable is of tyoe strino/ otherwise it is of tyoe 
floating point. 

examples : 

A 

B$ 

X y 6 

programming NOTE: 

All non- reserved identifiers nay consist of any fix- 
ture of upoer and lower case letters and numerics. 
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ELEMENT 



IF 



IF statement 
SYNOPSIS: 



t<l 


1 ne 


numbe r >] 


IF 


<exDress i on> 


GO TO 


< 1 i ne 


numbe r> 


[<1 


1 ne 


numbe r> ] 


IF 


<express i on> 


THEN 


<e X ec 


statement> 


t<l 


i ne 


numbe r> 1 


IF 


<exoress i on> 


THEN 


<exec 


statement> 






ELSE <exec 


statement> 









o r 

ELSE IF statement 



DESCRIPTION: 

If the value of the <exoression> is not 0, the follow- 
ing occurs: 

1) the GOTO causes an unconditional branch to 
< 1 i ne numbe r > / o r 

2) the <exec statement> following the THEN is 
executed. 

If the value of the <expression> is 0, the following 
occurs : 

1) either the <exec statement> or the IF state- 
ment following the ELSE is executed^ or 

2) the next seauential statement in the program 
is executed. 



EXAMPLES: 



IF 


AS < 6$ 


THEN 


>- 

II 

X 


*Z 






IF 


( A$<B$) 


AND 


(C OR 


D) 


GO TO 


300 


IF 


J AND K 


THEN 


GOTO 


1 1 


ELSE 


GOTO 12 



PROGRAMMING NOTE*. 

The line continuation symbol (<0) may be usea following 
the THEN or ELSE symbols to produce more readable 
code : 

ifx = ythena) 

Z - Z 1 a) 
else (3 

print X - y 
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a 




I 



ELEMENT; 



INPUT 



INPUT statement 



SYNOPSIS; 

[<Hne number>) INPUT [<promDt string> ;] 

<variab1e> <variab1e> > 

Ir <Drompt string>; <variab1e> 
if <variable>}I 



DESCRIPTION; 

The <prpmpt string>, if ppesentf is printed on the 
console. A prompt string may be followed by a semi- 
colon. A line of inout data is read from the console 
and assigned to the variables as they appear in the 
variable list. Data items preceedea by prompt strings 
should be separated by a carriaae return. Strings may 
not be enclosed in guotation marks. 



EXAMPLES; 

10 INPUT A,B 

INPUT ’’SIZE OF ARRAY?"; N, "DEFAULT VALUE?"; X 
INPUT "VALUES?"; A(I),B(I),C(A(I)) 
a S f 



i nput 



a(i ) 



ELEMENT 



INT 



INT oredefined function 
SYNOPSIS : 

INT ( <exoression> ) 



DESCRIPTION: 

The INT function returns the largest integer less than 
or eaual to the value of the <e*press i on> . The argu- 
ment should evaluate to a floating point number. 

EXAMPLES: 

INT (AMNT / 100) 

INT(3 * X * SIN(Y) ) 
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ELEMENT 



LEN 



LEN oredefined function 
SYNOPSIS; 

LEN ( <expression> ) 



DESCRIPTION: 

The LEN function returns the actual length of 
string <expression> passed as an argument. Zero 
returned if the argument is the null string. 



EXAMPLES: 

LEN( AS) 



the 
i s 



81 



ELEMENT 



LET 



LET statement 
SYNOPSIS : 

l<1ine number>] [LET! <variab)e> = <exDression> 



DESCRIPTION: 

The <expression> is evaluated and assigned to the 
<variable> aoDearinq on the left side of the eaual 
sign. The type of the <exoress i on> , either floating 
point or string, should match the tyoe of the <vari- 
ab 1 e> . 



EXAMPLES: 

100 LET A = 8 + C 

X(3,A) = 7.32 * Y + X(2,3) 
73 rt = (A<8) OR (C$>0S) 



02 



ELEMENT 



< 1 i ne numbe r> 



<1ine nu'T)ber> 



SYNOPSIS : 

<diqit> { <digit> T 



DESCRIPTION: 

<line numbers> are ootional on all statements and are 
ignored by the compiler exceot when they aopear in a 
GOTO/ GOSUB/ or ON statement. In these cases/ the 
<line numoer> should appear as the label of one and 
only one <statement> in the program. 

<line numbers> should be less than 32767. 



examples : 
100 
^635 
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■1 



LOG 

ELEMENT : 

LOG oredefined function 
SYNOPSIS; 

LOG ( <expnession> ) 



DESCRIPTION: 

The loq function returns the natural logarithn of the 
value of the <express i on> . The argu^nent shoula evalu- 
ate to a non-zero floating ooint number. 

A negative value will produce undesirable results. 

EXAMPLES; 

LOG (X) 

LOG((A + B)/D) 

LOGIO = LOG(X) /LOG( 10) 



ELEMENT 



MOD 



MOO predefined function 
SYNOPSIS; 

MOD ( <expression> / <expression> 



DESCRIPTION; 

The MOD function evaluates the 
modulo the second <expression> 
point value. Both <e x o re s s i on s > 
floating point numbers. 



EXAMPLES ; 

MOD (x,y) 

MOD (SORT (LOG (X)), X + Y) 



first <exoression> 
and returns a float 
should evaluate to 
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ELEMENT ; 



NEXT 



NEXT statement 
SYNOPSIS: 

[<1ine number>) NEXT l<identifier>] 



DESCRIPTION; 

A NEXT statement denotes the end of the closest un- 
matched FOR statement. If the ootional <identifien> 
is present it should matcn the index variable of the 
FOR statement being terminated. The <line number> of 
a NEXT statement may aooear in an ON or GOTO state- 
ment/ in which case execution of the FOR 1 ooo contin- 
ues with the loop variables assuming their current 
V a 1 ue s . 

While it is oossible to branch into a loop/ it is un- 
desirable since the 1 ooo will not be properly execut- 
ed. Those statements occuring at and after the ad- 
dressed statement will be executed/ and the NEXT 
statement will be ignored. 



EXAMPLES : 

10 NEXT 
NEXT I 
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ELEMENT 



ON 



ON statement 
SYNOPSIS: 



( 1 ) 


C < 1 i ne 


numbe r> 1 


ON <exoress i on> 
<line number> 


GOTO 
< 1 i ne 


numbe r > } 


(2) 


( < 1 i n e 


numbe r>] 


ON <expression> 
<line number> 


GO TO 
< 1 i ne 


number>> 


(3) 


( < 1 i ne 


numbe r >1 


ON <exDression> 
< H ne numoe r > { ^ 


GOSUB 
< 1 i ne 


numbe r> } 


(a) 


t < 1 i ne 


numbe r > ] 


ON <exoress i on> 
<line number> { f 


GO SUb 
< 1 i ne 


number>} 


(5) 


1 < 1 i ne 


numbe r>l 


ON <exoression> 
< 1 i ne numbe r > { / 


THEM 
< 1 i ne 


numbe r> } 



DESCPIPTION: 

The <e X p re s s i on > » truncated to the nearest integer 
value/ is used to select the <line number> at which 
execution will continue. If the <expression> evalu- 
ates to 1 the first <line number> is selected and so 
forth. In the case of an ON ... G0SU8 statement the 
address of the next instruction becomes the return ad- 
dress. ON ... THEN produces the same results as ON 
... GO TO 

If the <expression> after truncating is less than one 
or greater than the number of <line numbers> in the 
list/ the program continues with tt'e next executable 
statement . 



EXAMPLES: 

10 ON I GOTO 10/ 20/ 30/ aO 

ON J*K-M GO SUB 10/ 1 / 1 , 10 
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ELEMENT 



OPEN 



OPEN statement 
SYNOPSIS: 

(<1ine number>l OPEN (<fi1e number>f<rrode>) <fi1e 
name > 



DESCRIPTION: 

The OPEN statement opens the <file number> for random 
access (<mode> 0)f reading (<mode> 1)^ writing (<mode> 
2)f appending (<mode> 3). <file name> is a string of 
ASCII characters which represents the file specifiea 
by <fi1e number>. A file is created by the first OPEiN 
statement for <fi1e name> and <file number> with the 
write <mode> specified. Attempts to open a non- 
ex istant file for reading will cause a fatal error. 

Although the programmer may have uncountaply many 
files/ limited only by the number of <file names> 
available/ a maximum of 15 files may be open at any 
one time. <file numbers> are restricted to the se- 
guence O-l^ inclusively. No two <file numbers> for 
open files may be the same/ but snould be unique for 
each open file. 

The <file number> will be usea for input/outout and 
closing of files. It is the sole uniform reference 
between the above statements. 



EXAMPLES: 



10 open ( 1 / 1 ) ** da t a 1 



ooen ( 5 / 0 ) ** f i e 1 d” 
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ELEMENT 



PAGE 



PAGE pref^efined function 



SYNOPSIS: 

PRINT PAGE 



DESCRIPTION; 

The PAGE function causes a new page command to be is- 
sued. The page orint function should not be used on 
the console^ since it will cause undesirable effects 
on the CRT screen. 



EXAMPLES : 

print page 



PROGRAiMMING NOTE; 

PRINT PAGE is the same as PRINT CHRS(IO). It shou'd 
be used in the same manner as TAB or CCL» wnich is 
only in a PRINT statement. 
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ELEMENT 



PRINT 



PRINT statement 



SYNOPSIS: 

l<Hne number>] PRINT <exDression> <deHm> 

{ <exDression> <oelim> > 



DESCRIPTION: 

A PRINT statement senas the value of the exoressions 
in the expression list to the console. A soace is ao- 
pended to all numeric values and if the numeric item 
exceeds the riqht margin then the print buffer is 
dumped before the item is printed. The <delim> 
between the <e xp r es s i ons > may be either a comma or a 
semi colon. 

If the <delim> is a comma, the output of elements is 
seauential on an output line. If the semicolon is 
used> the print buffer is dumped upon encountering the 
semicolon, and the next line is begun. If, however, 
the semi-colon occurs at the end of the list of ele- 
ments to be printea, no newline is issued/ and subse- 
quent orinting will begin at the next position on the 
line. 



EXAMPLES : 



PRINT A, B, "THE ANSWER IS"; x 
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ELEMENT 



PRINT 



PRINT 4 statement 
SYNOPSIS: 

[<line number>] PRINT U <fi1e number> ; 

<expression> {/ <e x o re s s i on> } 



DESCRIPTION: 

PRINT U causes the output for a program to be directed 
to the indicated file number-. Before a transaction 
may take places a file should be ooeneo using the OPEN 
command with mode 2 or 3. The file is an external 
file in the user's directory. This allows the user to 
store program results externallv/ and to eventually 
output the results to an external device/ such as tno 
line printer. 



examples : 

PRINT « 2 
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ELEMENT 



RAD 



RAO oredefined function 
SYNOPSIS : 

RAO ( <expression> ) 



DESCRIPTION: 

The RAO function converts the 
sion> into a radian value, 
evaluate to a floating point nunber. 

EXAMPLES : 

RAO (180 * i) 



value of the 



<e xpres- 
on> snou 1 d 
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ELEMENT; 



randomize 



RANDOMIZE statement 
SYNOPSIS : 

(<)ine number>) RANDOMIZE I(<numeric express>on>)] 



DESCRIPTION: 

A randomize statement seeds the random number genera- 
tor with 1301» if no <numeric expression> araument is 
suDpliedf and <numeric expression> modulo 2**15 - 1 if 
s p e c i f i e d . 



examples : 

10 RANDOMIZE 

randomize (1013) 



I 
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ELEMENT 



READ 



READ stat emen t 



SYNOPSIS : 

[<line numbep>] READ 

<variab1e> ir <variab1e> ) 



DESCRIPTION: 

A READ statement assigns values to variables in the 
variable list from DATA statements. Fields may be 
floating ooint or string constants and are oelimited 
by a comma . 

DATA statements are orocessed sequentially as they ao- 
pear in the program. An attemot to read past the end 
of the last data statement produces an error> and au- 
tomatically generates an aocrooriate RESTORE. An at- 
tempt to read non-existant data will oroduce a termi- 
nal error. 



EXAMPLES; 



100 



READ A,0,C$ 



ELEMENT 



READ 



READ 9 statement 



SYNOPSIS: 



(<line number>] READ 9 
<variable> 



<file numher> ; 
{/ <varianie>} 



DESCRIPTION; 

A READ 9 statement assigns values to variables in 
variable list. Values are read from seauent 
records from the external file soecifieo bv the <f 
number>. Fields may be floating ooint or strings. 



EXAMPLES: 



200 



READ 9 l; PAYR, PAYO, HRSR, HRSO 
READ 9 2 } x»y*zS 



the 
i a 1 
i 1 e 
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ELEMENT 



REM 



REM statement 



SYNOPSIS: 

[<line number>] REM [<remark>] 
[<1ine number>) REMARK t<remark>] 



DESCRIPTION: 

A REM statement is ignored by tne comoiler ano compi- 
lation continues with the statement following the next 
carriage return. The REM statement mav be used to do- 
cument a orogram. REM statements do not affect the 
size of program that may be comoiled or executed. 

A REM statement may be the object of either a GOTu or 
GOSUB statement. 



examples : 

10 REM THIS IS A REMARK 
20 REMARK This is another remark. 



( 
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reserved word list 



LEMENT : 

reserved word list 



YNOPSIS: 

<letter> { <letter> > [ $ ] 

DESCRIPTION; 



The following words 
may not be used as 


are reserved 
<identi fiers> 


by ext ended 


Basic and 


ABS 


AND 


ASC 


A TAN 




CALL 


CHR$ 


CLOSE 


COL 


COS 




COSH 


DATA 


DEF 


DEG 


DIM 




ELSE 


END 


EO 


EXP 


FILE 




FOR 


GE 


GO 


G0SU6 


GOTO 




GT 


IF 


INPUT 


INT 


LE 




LEM 


LET 


LOG 


LT 


MOD 




NE 


NEXT 


NOT 


ON 


OPEN 




OR 


PAGE 


PRINT 


RAD 


RANDOMIZE 


READ 


REM 


RESTORE 


RETURN 


RNO 




SIN 


SINH 


SORT 


STEP 


STOP 




TAB 


TAN 


THEN 


TO 


VAL 






Reserved words may be oreceeded ana followed bv either 
a special character or a space. Soaces may not be em- 
bedded within reserved words. Reserved word identif- 
iers should consist of upper or lowercase letters ex- 



c 1 us i V e 1 V . 



e X “ 



ELEMENT 



RNO 



RND predefined function 

SYNOPSIS: 

RND 

DESCRIPTION: 

The RND function generates a uniformly distributed 
random number between 0 and 1. 



example : 

RNO 



100 



ELEMENT 



<simole staternent> 



<simDle statetnent> 



SYNOPSIS; 



[<1 


i ne 


nunbe r > 1 


DATA 


Statement 


<c r> 


[<1 


i ne 


n u m b e r > ) 


OEF 


statement 


<c r > 


[<1 


i ne 


n unbe r > ] 


DIM 


statement 


<c r> 


[<1 


i ne 


numbe r > ] 


<exec statement> <cr> 


[<1 


i ne 


numbe r> ] 


FOR 


statement 


<c r > 


[<1 


1 ne 


numbe r> ] 


IF statement <cr> 


[<1 


1 ne 


n umbe r > ] 


REM 


Statement 


<c r > 



DESCRIPTION: 

All <simoIe s t a t emen t s> are elements of a <statement 
list> and are executaole. A1i <simDle stater. ents> ena 
with a carriage return <cr>. 



ELEMENT 



SIN 



SIN oredeTined function 
SYNOPSIS : 

SIN ( <exppession> ) 

DESCRIPTION: 

SIN is a predefined function which returns the sine of 
the <exoression>. The argument should evaluate to a 
floating point number in radians. 



examples : 



X = SIN(Y) 
SIN(A - 8/C) 
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ELEMENT 



SINH 



SIMH predefined function 
SYNOPSIS; 

SINH ( <exDression> ) 



DESCRIPTION: 



SINH is a function which returns the hyperboli 
of the <expression>. The argument should eval 
a floating point number. 



c sine 
ua t e to 



EXAMPLES: 

SINH(Y) 

SINH (8 + C) 
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ELEMENT 



special characters 



special characters 



DESCRIPTION; 



The following special characters are used by extended 
Basic: 



t 

( 

) 

[ 

1 

M 

k 

f 

/ 

t 

< 

> 



CR 

I 

a 

I 

I 

u 

$ 

& 



ci rcumflex 

open parenthesis 

closed parenthesis 

open sauare bracket 

closed square bracket 

double quo t e 

a s t e r i s k 

plus 

mi n u s 

slant 

semicolon 

less-than 

great er-t han 

eaua 1 

comma 

carriage return (new line) 

exclamation point 

line continuation 

tilde 

subs t r i ng 

space 

number si an 
do 1 1 a r 
ampe r sand 

Peri od 



Any spec 
c ep t > f 
string, 
abo ve r 
an error 



ial character 
which 
Special 
if they 



in the ASCII 
may appear as \ 
characters otner 
appear outside a st 



character set ex- 
> / may appea r i n a 
than those listed 
rinq^ will generate 



1 oa 




a 




ELEMENT 



SORT 



SQRT predefined function 
SYNOPSIS: 

SQRT { <expression> ) 



DESCRIPTION: 

SQRT returns the square root of the absolute value of 
the <express i on> , The argument shoulo evaluate to a 
floating point number. Negative numbers will return 

0 . 



examples : 

SQRT (Y) 
SQRTCXta + YT2) 
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ELEMENT 



< s t a t emen t 1 i s t > 



<state.'T'ent list> 



SYNOPSIS: 

<simple staternent> 
{<simole s t a t efrien t > } 



DESCRIPTION: 



A <st atement 
men t s . A 1 1 
by a carriage 



ist> is a sequence of executable state- 
extended 3asic statements are terminatea 
return (<cr>). 



ELEMENT 



STOP 



STOP statement 
SYNOPSIS: 

[<line number>) STOP 



DESCRIPTION: 

Upon execution of a <ST0P statement>» orogram execu- 
tion terminates and all ooen files are closeo. The 
print buffer is emptied and control returns to the 
host system. Any number of STOP statements may appear 
i n a program , 

A STOP statement is appended to all programs by the 
comp i 1 e r . 



EXAMPLES: 

10 STOP 
STOP 
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ELEMENT 



<subscriot 



1 i s t > 



<subsc riot 1 i s t > 



SYNOPSIS: 



<integer> {/ <integer> > 



DESCRIPTION: 



A <subscriot list> may be used as part of a <01 M 
statement> to specify the numoer of dimensions and ex- 
tent of each dimension of the array beina declared or 
as Part of a <subscrioted variable> to indicate which 
element of an arrav is being referenced. 



Elements of a subscript 
i ntegers. 



1 i St 



in a DIM statement 



may be 



EXAMPLES; 

X( 10,20,20) 



\ 
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•4 



4 



t 



TAB 

ELEMENT : 

TAB oredefined function 
SYNOPSIS: 

TAB ( <e X D re s s i on > ) 



DESCRIPTION; 

TAB moves the text pointer to the absolute column in- 
dicated by the evaluated <exoression'>. If the expres- 
sion evaluates to a value qreater than 80, the TAB 
value is defaulted to <exoression> - 80 and will not 
cause text to wrap around on tne same line at the con- 
sole. 



examples : 

TAB (10) 

TAB (i + j) 
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ELEMENT 



tan 



TAN oredefined function 



SYNOPSIS ; 

TAN ( <exoression> ) 



DESCRIPTION; 

TAN is a function which returns the tangent of the 
pression. The argument should evaluate to a float 
point number in radians. 

If the <e<pression> is a multiple of pi/2 radians^ 
value returned is the largest or smallest numoer 
the system, deoending upon which side of zero is 
proached by the function. 



examples: 

10 TAN(A) 

TANCX - 3*C0S(Y)) 



e X - 
i mg 

the 
i n 
ao- 
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V AL 

ELEMENT : 

VAL predefined function 
SYNOPSIS: 

VAL ( <expression> ) 

OESCRIPriON: 

The VAL function converts the string number in ASCII 
oassed as a parameter into a floating point number. 
The <expression> should evaluate to a string. 

Conversion continues until a character is encountered 
that is not oart of a valid number or until the end of 
the string is encountered. The maximum length for a 
string is 22 digits. 

EXAMPLES : 

VAL( AJ ) 

VAL(‘*3.789") 

VAL(*’This returns zero’*) 



ELEMENT 



< var i ab 1 e> 



<va r 1 ab 1 e> 



SYNOPSIS: 



<identifier> {( <subscriDt list> )] 

<strinq identifier> (<beginninq position> j <string 
1 eng t h > ) 



DESCRIPTION: 



A <variab)e> in extended Basic 
floating ooint number or a 
type of the < i den t i f i e r > • All 
aooear in a DIM statement 
<variable>. 



may either represent a 
string deoenaing on toe 
string variables should 
before being used as a 



String variaoles may be broken down into substring un- 
its by indicatinq string name/ starting character and 
length of substring. The element <beg inning DOsition> 
is an <expression> and refers to the first character 
position of the substring. It should evaluate to a 
number. The element <strinq length> is an <exores- 
sion> and should evaluate to a number. It is the ao- 
solute length of the substring. String character 
count beg ins at 1 . 



EXAMPLES: 

X 

YS(3! 10) 

ABS(8 ! 20) 

ABSl(X(I),Y(I),S(I-l)) 
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APPENDIX II 



OPERATING IN UNIX WITH EXTENDED BASIC 



Lbax is the shell command call for the extended Basic 
compiler in the PDP-11/50 UNIX computer system at the Naval 
Postgraduate School. It is of the form: 

lbax [-C] [-S1 [-cl [- 0 ] [-rl I-t] l-vl file ... 

The system call accepts three tyoes of arguments: 

Flags defined below; an argument whose name ends with 
’.b* which is taken to be a Basic source program and is com- 
piled; arguments ending in ’.o’ which are taken as object 
files to be passed to the loader. 

The following flags are interpreted by lbax: 

- C Include the standard C library when loading the 

results of the compilation, 

- S Compile the named Basic program^ and leave the 

assemb 1 y- 1 anguage output on a cor respond i ng file 

suffixed *.s*. 

- c Include the graphics library for the CONOGRAPHICS 

graphics device. 

- r Include the graphics library for the RAMTEK graphics 

device. 

o Compile the named Basic program/ and leave the ob- 
ject file on a corresponding file suffixed ’.o*. 

- t Include the graphics library for the Tektronics 

graph i c device. 

- V Include the graphics library for the Vector General 

graphics device. 

Whenever a graphics library is included for loaaing 
with the compiled source program/ the standard C library is 
appended to the loader library list. Other arguments are 
taken to be either C compatible object programs/ typically 
produced by an earlier C compilation/ or oerhaos libraries 
of Basic or C compatible routines. These programs/ together 
with the results of any specified compilation/ are loaded 
(in the order given) to produce an executable program with 
the name a, out. Libraries with the same file name as the 
source program/ and which end in *,o*/ should not be used 
since they will not be retained upon creation of file.o ov 
the executive program, 

Basic programs may not be compiled for future use as 
libraries since every compliled Basic program includes a 
"main” section/ which drives the program. Thus additional 



libraries may be created in the C language/ compilea using 
the "C option for output as *.o* files/ and then included in 
the *.o* form as object libraries for the Basic loaner [9]. 

If the -o option is exercised/ the subsequent file.o 
may be invoked by LBAX and will return an executable a. out 
file. The effect of the -o option is to produce the source 
program in object code/ which is fully loadable. Caution 
should be exercised to prevent usage of a -o option output 
as a library file. 



In addition to the features supported in standard 
Basic/ a number of special features are found in the NPS 
version of extended Basic. These include: 



cal 1 

C h r 5 

close 
col 
d i m 

extern 



1 en 
mod 
open 



read file 
V a 1 

write file 



References an externallyv defined C languace 
orocedure or function. 

Return a character string of length 1 netermineo 
by the ASCII equivalent of an expression argu- 
ment. 

Causes the externally referenced file to be 
closed. 

Specifies column width of subseauently printed 
nume r i c values. 

In addition to numeric arrays/ permits creation 
of a vector of strings. 

Declares type and arguments of external pro- 
cedure or function referenced by a call state- 
ment. 

Returns the length of a string expression. 
Evaluates an expression with modulo arithmetic- 
Causes the externally referenced file to be 
opened and indicates the mode for opening the 
file. 

Reads sequentially from the specified external 

file. 

Converts a string of numbers to a floating point 
numbe r . 

/Jrite sequentially into the specified external 

file. 



String manipulation is enhanced by use of substrinqing 
constructs. Strings may be referred to in an Algol-like 
manner to produce Portions for reading/ writing/ or altera- 
t i on . 



Since the UMIX environment does not support some of tne 
features of standard Basic without considerable system over- 
head (and in some cases/ not at all)/ the NPS version of ex- 
tended Basic uses slightly different/ although no less 
specific/ formats in some statement formations. 



Imoortantlyf the NPS extended Basic is a comoiler ver- 
sion/ and is not i n t e ro r e t i v e . Thus/ the use of line 
numbers with every statement is not mandatory or recommend- 
ed. Creation and subsequent editing of programs is effected 
by use of the UNIX editor. Execution of the program is ac- 
complished through the a. out file/ as with other UNIX com- 
o i 1 e r s . 



The files which are used by the system while executing 
the shell executive program are: 



f i 1 e . b 
f i 1 e . o 
f i 1 e . s 
a . ou t 

/usr/basic/baxcomo 
/usr/basic/basicl ib.a 
/usr/graph/coni e.a 
/usr/graph/rmtksuD.o 
/usr/qraph/moresub.o 
/usr/graoh/vg.a 
/us r/lib/libt.a 
/ 1 i b/ 1 i be . a 
/I i b/ 1 i ba . a 



i npu t file 
object file 

assembly-language output 

1 oaded output 

comp i 1 e r 

Basic library 

Oconoqraphics library 

RAMTEK library/ part I 

RAMTEK library/ part II 

Vector General library 

Tektronics library 

C library; see section III 

Assembler library used by some 

routines in libc.a and t:>asiclib.a 



The diagnostics produced by Basic itself are intended 
to be self explanatory. Occasionally messages may be pro- 
duced by the assembler or loader. Of these the most mysti- 
fying are from the assembler/ in particular **m**/ which means 
a multiple-defined external symbol (function or data). 



115 



PROGRAM LISTING > EXTENDED BASIC COMPILER 



PARSING RULES 



X( 

if include "./bstruc.c" 
f* include "./bfun.c" 

%> 

%token STEP DATA DEF DIM ELSE END FOR GOSUB GO TO GOTO IF 
%token NEXT ON PRINT READ REM RESTORE RETURN STOP THEN TO 
%token OPEN CLOSE SUB RANDOMIZE relsoec OR XOR NOT AND 
%token number numeric<-id array^'id string*-id function^ia 
%token n ume r i c f o r ma t string string*-bif numeric«-bi^ 

%token simole^-format str»-num*-bif 
%token EXTERN TYPE INPUT LET CALL 



% 1 e f t ’ f ' 
% 1 e f t ’ * • V 
% 1 e f t ' T ' 



XX /* beginning of the rules section * / 
program; s t a t emen t «- 1 i s t end«-st at ement 



s t a t emen t <- 1 i s t ; simplex-statement 

I s t a t eme n t X- 1 i s t s i mo 1 e«- s t a t emen t 



endx-statement: statementx-label END '0 
: END '0 



simpl e<-statement ; 



statementx-1 abel 
statementx-1 abel 
statementx-1 abel 
statementx-1 abel 
statementx-1 abel 
s t at ement <- 1 abe 1 
forx-statement 
dimx-statement 
execx-state '0 
ifx-statement *0 
dat ax-statement 
defx-statement '0 



execx-state '0 
ifx-statement '0 
da t ax-s t at emen t '0 
defx-statement '0 
r em«- s t a t emen t '0 
e X t e r nx- s t a t em en t '0 



’ 0 
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exec<-st ate 



rem«-s tat emen t ' 0 
e X t e rnf-s t a t emen t '0 
error '0 
' 0 

read^-statement 
restorer-statement 
open<-st atement 
closer-statement 
inputr-statement 
readfr-statement 
printr-statement 
wri ter-statement 
s t opr- s tatement 
onr-st atement 
b r anc hr-s t a t emen t 
1 etr-statement 
cal 1 r-s t a t emen t 

f o rr-s t a t emen t : s t a t emen t r- 1 aPe 1 for«-clause st at ement<- 1 i st 

nextr-clause = { seman t ( ^ 1 / S2 ) » > 

! forr-clause s t at emen t r- 1 i s t nextr-clause = 

{semant(^4l,'Sl);} 

s t a t emen t r- 1 abe 1 : number = 

{ semant(19,$l); 
if (numbers [$ 1] . use 1= 1) 
numbe r s S 1 1 . u se = 2 ; > 



label: number = 

{ seman t ( 20 , S 1 ) ; if ( numbe r s ( '5 11 . use == 0) 
numbe r s ( $ 1 1 . use= 1 / ) 



forr-clause: forr-head '0 = 

{ $5 = forctr; seman t ( 39 > S 1 ) ; } 
! forr-head STEP numericr-exo '0 

( $S=forctr; semantC-TO/Sl);} 



f o rr-heao : 

t 

nextr-clause: 



/ 

f o r r- i n i t : 



f 

dimr- statement: 



FOR forr-init 



TO numericr-exD = { 



s t a t emen t r- 1 abe 1 NEXT 
NEXT numericr-id '0 
NEXT '0 

s t a t emen t r- 1 abe 1 NEXT 



nume r i cr- i d 



’ 0 



' 0 



numericr-id ' = ' numericr-exp 
( semant(38,$l);> 



$$=S2 ; } 



I 



sdimr-head '0 
dimr-head '0 



d i m h e a d 



d i m«-sa r ray<-head number ')' = 

{ s ym t ab 1 e [ 'B 1 ] . am t = 

(numbers t$2] . number i +1 ) * 

symtabletBl] .lenathfi; } 
d i m<-head*-a 1 o number ')' = 

{ j=doDept + + / dooe [ j ] =numbe r s ( B2 ) . numbe r i ; 
symtable(Sll .dimen + + ; 
caldope($l/Symtable($n .dimen/symtable(Sl] .doov); } 

dim^-head: dim^-head^-slo number*)* = 

svmtabl e t$ll . 1 ength=numbers [S2] .numberi ; } 

f 

d i m<-sa r r ay+-head t sdim*-head '(' = 

{ $B=Sl; symtable(il).type=3; 
symtableEBl] .dimen=l; } 

s t a t emen t 1 abe 1 DIM 
DIM 

s d 1 m h e a d ’ r ' 
dim*-head * r ' 

dim«-head*-1p strinq«-id '(' = { SB = 3 2;> 

d i m<-h ead<- 1 o numeric<"id '(' = 

( SS = .B2; symtablelS2].dimen = 0; 
symtable(S21 ,tyDe=l; 
symtablelS2] , dopv =dopep t ; > 
dim**head**alo number ' r ' ~ 

{ S5 = Bi; sym table! BlJ.dimentt; 
j=dODept++; dopeCj]=numbers!52] .numoeri;} 



dim«-head**lp: 



dim*-head*-slo: 



d i m*-head<-a 1 p ’ 



data«-statement 

I 



f 

t 



da t a*-head : 



t 

t 



f 

I 



I 

I 



t 

data«-minus: 



data<-head number = 

( dat a tdat aot + + ] = numbe r s ( S2 ] . numbe r f ; } 
data*-minus number = ! data(dataot-t- + ] = 
-numbers!S2J .numberf;} 
data*-head string = 

{ strcopyCstiP/datastor); 
datastpr=+ stig1+l; } 

DATA 

data<-head number = { da t a ( oa t ap t + + 1 = 

numbers!$2] .numberf;} 

data«-minus number = { da t a ( da t ap t + + 1 = 

-numbers[?21 .numberf;} 
data*-head string '/' = 

(strcbpy(stig»datastbr); datastbr=+stigl+l;} 
data<-head 



f 

de f <-s t a t emen t : de f ^ 1 e f t r t * = * numen‘c<-exo 

{semant(37/Sl);> 



def^l eft^oart 



DEF def^"head numerical d *)* 
{ semant (35fJ2)/ 



■ semant ( 36 f 52 ) ; defv = 0; > 



de f ♦•head 



function<-id ’(' = { 5 3 = $i; 

symtabletSl] .dimen=0;} 
def<-head numeric<-id = 

symtabletSll ,1enqth=$2; 
symtabletSl] ,dimen++;} 



{ $ 5 = 5 1 ; 



read^-s t a t emen t 



read<-head nume r i c re f 
{ semant(33/-l);} 
read^-head string*-ref 
{ serfiant(5^J,-l); 1 



read<-head 



READ 

read^-head numeric<-ref 
{ semant ( 33 » - 1 ) / V 
read<-head string<-ref 
{ semant(Sii/-l); ] 



restorer-statement 



RESTORE = 

{ semant ( 32 / - 1 ) ? ) 

randomize = 

{ semant(55/-l); 
RANDOMIZE ' ( ' 

{ semant (55»53); 



} 

nume r i cr-exo 
} 



openr-st at ement ; 
openr-head : 



ooen<-head number ')' string 
{ semant(51/$2);> 

OPEN '(' numper = 

{ j=numbers[S3].numberi; fastj] = l; 
semant (50/S3 ) ; ) 



c 1 oser-st at ement : 



CLOSE '(' number 
{ j =numb e r s t 5 3 ] .numberi; 
if(fdstj) == 0 ) fdstj] = 
semant (52/S3) ; } 



2 ; 



inputr-statement 



inout^-head numericr-ref 
{ seman t ( ^8 / - 1 ) ; } 

inout<-head stringr-ref 
{ semantt '19,-1); > 



inoutr-heaa: 



INPUT 

inputr-head strinar-exp 
{ semant ( 3 , - 1 ) ; 
stig)=0; stiqlstig !+♦]=' 
s t i q t s t i g n = ' 0 ' ; semantCM/j) 
semant (■'13,-1 ) ; ) 
inDut*"head nume r i cr- re S 
{ semant(y8,-l); } 
inoutr-head strinqr-ref 
{ seman t ( 'IR , - 1 ) ; } 



1 19 





1 







I 






i 



readf^-statement : 



readf<-head nur^e r i c <- re f = 

{ semant(69,-l); semant(71/-l); } 
I readf<-head strinq«-ref = 

{ semant ( 70 , - 1 ) ; se'^an t ( 7 1 / - 1 ) ; > 

readf«-head: read*-fi1e 

! readf«-head numeric«-ref '/* = 

semantC 69,-1); } 

! readf«-head strinq<-ref = 

{ semant(70,-l); } 



read«-file; READ ' U ' number numeric<-exp ' 

{ j=numbers t$5] .numberi , 

ifCfdsCj] == 0) fds[j] = a; 

semant(b8,$3); > 

! READ number = 

{ j=numbers [S3] . number] ; 
if(fds[j] == 0) fdsCjl = 2; 
semant(68,$3); > 

f 

orint<-statement: PRINT = 

[ semant (iia, -1 ) ; > 

! print<-head numeric«-exp = 

[ semant (92,-1); semant (99 , - 1 ) ; > 
! print«-head strinq«-exp = 

{ seman t ( 9 3 , - 1 ) ; semant (99,-1);) 
1 print<-head formate-element = 

{ semant (99, -1 ) ; } 

I orinte-head formate-element 

! printe-head numerice-exo = 

{ semant (92,-1); > 

I printe-head stringe-exp = 

{ semant(93,-l); > 



printe-head: PRINT 

! printe-head numerice-exp = 

{ semant (92,-1);) 

I printe-head stringe-exp = 

{semant(93,-l);) 

I printe-head formate-element 

1 printe-head numerice-exo = 

{ semant (92,-1); semant(99,-l);) 

I printe-head stringe-exp = 

{ seman t ( 9 3 , - 1 ) ; semant (99,-1);) 

I printe-head formate-element 

/ 

w r i t ee-s t a t emen t : writee-head numerice-exo = 

{ semant(72,-l); semant(79,-i); ) 
! writee-head strinqe-exo = 

{ seman t ( 7 3 , - 1 ) ; seman t ( 79 ,- 1 ) ; ) 

write«-head: wri tee-file 

I writee-head numerice-exp = 
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{ semant(72/-l); > 
i write+-head string<-exo = 

{ semant(73/-l)» } 

} 

write«-fi1eJ PR^JT ‘ u ' number numeric<-exp 

{ j =numbe r s f S3] . numbe r 1 ; 
if(fds(j] == 0) fdstj) = 2; 
seman t ( 75 » S 3 ) ; > 

: PRINT 'd' number = 

{ i=numbers (S3] . number i / 
if(fds(j] == 0) fdstj] = 2; 
semant(75f$3)? ) 

f 

f o rma t 1 erne n t : s i mo 1 f o rm a t = 

{ seman } 

I f o r ma t ^ 1 e f t ♦-oa r t numeric^exo *)* 

{semant(53/Sl); } 

7 

format<-left<-Dart: numeric^-format '(' = 

{ S$ = $1 ; } 

/ 

if<-clause exec<-state = 

{ semant ( 28 f - 1 ) ; > 

if<-clause else«-clause exec*-state 
{ semant (29,-1); ) 

if^-clause else«-clause i f «-s t a t emen t 
i f<-heaa goto number = 

< semant ( 30 , $3 ) ; } 
if<-clause number = 

{ semant(16,-l); semant(30,S2);> 
if*-clause else«-clause number 
( seman t ( 1 b 1 ) ; semant ( 30 , S3 ); } 

exec<-state ELSE = 

{ semant(31,-l);> 
number ELSE = 

{ seman t ( 1 6 , - 1 ) ; semant ( 30 , S I ) ; } 

i f <-heao THEN 

IF rel+-exD = 

{ semant (27,-1);} 

IF END ' ' numbe r 



i f<*statement '• 



else*-c1ause: 



i f ♦•c 1 ause 
/ 

i f «-head : 



rel«-exp; re1«-exp XOR rel^-term 

< semant( 56,-1); } 

! rel<-exp OR rel<-term 

( semant(57,-l); } 

1 r e 1 t e rm 



r e 1 1 e rm : 



rel«-term AMD re1<-primary 
{ semant (58,-1); } 
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re 1 ♦-p r i rra r y 



re 1 ♦■p r i ma r y ; nume r i c ♦•e x p rel nume r i c ^e x p 

{ semant(25»S2)» > 

1 string«-exp rel string<-exp 

{ seman t ( 2b , $? ) ; } 

: '(' re1*-exn ')' 

! NOT '(' reH-exp ')' = 

{semant (59,-1); > 



rel: '=' 




{ 


s$ = o; ) 


1 III 1 - 1 

1 • ” 


- 


{ 


S $ = a ; } 


! * > * 


z 


{ 


CO 

II 


1 * < ’ 


z 


{ 


$s= 12; > 


1 • < • ' r » 


z 


{ 


$?=ib; } 


• 1 > 1 1 1 


z 


{ 


II 

ru 

o 


1 • < * ' > * 


z 


{ 


II 


j • • * z * 


- 


{ 


II 


! rel spec 


= 


{ 


II 


; 

stop<-statement : 






STOP 


• 




semant ( 2y 


remy-s t a t emen t : 


REN 





on<-s t a t emen t t on^head label 

{ semant (23,-1);) 

9 

on<-head: on«-beqin 

I on<-heaa 1 abe 1 ' , ' 

{ semant(22,-l);} 



on<-begin: ON numeric«-exp on<-case«-se1 

{ seman t ( 2 1 , 0 ) ; > 

! ON numeric«-exp on<-selector 

{semant(21,-l);} 



on<-se 1 ec t o r ; 

I 

I 

I 

/ 



THEN 
GOTO 
GO TO 



on<-c ase«-se 1 ; GOSUB 

1 GO SUB 

9 



branchy-statement : 

I 

I 

I 

I 



gosub label 
go t o 1 label 
RETURN = 

{ semant(18,-l);} 
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qosub: G0SU3 = 

{ secant ( 1 7 , - 1 ) ; > 

! GO SUB = 

{seTiant(17,-l);} 

go t o 1 t goto 
0 

got o I GOTO = 

{ seman t ( 1 6 > - 1 ) ; > 
I GO TO = 

{ semant(16/-l);> 



1 e t ♦'S t a t erren t : string<-1et 
! nijmepic^let 

string<-1et: LET string^-ref ' = ' string<-exp 

{ seTiant(15»-l);} 

! string«-ref ' = ' string«-exp = 

{ semant(15f-l);} 



f 

s t r 1 ng<-exp ! 

I 

I 



I 

I 



/ 

numerical et! 



I 



numeric^exo: 

I 



St r i ng<- re f 
string = 

{ semant ( 1 y m' ) ' ) 

s t r«-nun"*-b i f '(' nume r i c «-e x p ')' 

{samant(53/$l)J } 

LET numer i c<- re f ' = ' numeric<-exc 
{ semant(13f-l);} 

numeri'c<-ret ' = ' numeric^'exp = 

{ semant ( 1 3 / - 1 ) ? > 

term 

numeric<-exp ' + ' term = 

< semant (9,-3);} 
numeric^'exp term = 

{ seman t(10,-<^);> 

' + ' t e r m - 

{ semant(ll,-l)*> 

'-'term = 

{semant(l2,-l);} 



term: primary 

! term ' * ' or i mary 

{ seman t ( 7 , - 1 ) ; } 

! term '/' primary 

{ semant (8,-2);} 



primary; primary<-element 

! primary 't' orimary<-element 

{ seman t ( P , - 1 ) ; } 



primary<-element; numeric^'ref 

1 number = 

(semant(3,Sl); numbers(511 .luse=i; 



} 



123 



b i f 

' ( ' numer i c<-e*P ' ) ' 
func<-ref = 

{S0m3nt ( 1 ) f } 



numeric<-ref 



nume r i c <- i d 
{ semant(l,$l);} 
arrav<-ref 
{ semant ( 2 f $ 1 ) ; } 



array^-reft 



arpay<-pef<-head nuTiepic^exo ')' = 

{ j=dfunap(dpfunap--]+l; semani:(45/$2); 
if (j 1= symtableiSn.dimen) 
ePPOp(symtab1e[Jn .symbol ,msg[6l ); } 



a p pay<- pe f head : appay<-id '(' = 

{ semantCKSl); 

SS = $i; d f un a p [ +• + do f un a P ) = 0 ; } 



numep i c<-exD ' , ' 



{ SS = .5l; dfunap[dofunap]+ + ; 
seman t ( 45 , $2 ) ; } 



stPing«"Pef: stping<-id 

{semant (46, $1); } 

! subst p i ng<-pef 
I s t p i 

! sa p pay «-subs t <- pe f 



s t P i ng<- pe f <- 1 o : stpinq<-id '(' 

{ semant(46,Sl); } 



subs t p i ng<-P6 f : s t p i ng<- pe f <- 1 o subs t p i ng<-soec 



s t p i 



s C p i nq<- pe f 1 o nume p i c ♦■e x o 
( if ( sym t ab 1 e [ S 1 1 . t yoe 1 
eppop(synntable[Sl] .symbol 
semant(60,-l); } 



’ ) ' 

3) 

m sg [ 8] ) ; 



sappay«-subst«-pef: 
sappay<-subst<-lp: 
subs t p i ng<- spec : 



sa p pay<-subs t <- 1 p sub s t p i ng<-soec 

s t p i ng<-a p pay<- Pe f '(' 

numepic<-exp numepic*-exp ')' 

{ semant(6l,-l); } 



f 

bif; stpinq«-bif*-pef stpipig^-exp = 

{ if (dfunapCdofunai 1+1 1= symt-ableiSll. dimen) 

( 

eppopfsymtablelSl] .symbol ,msq(b] ); 
semant(53,$l); ) 

! numepic<-bif<-pef numepic<"exo ')' = 

{ if ( d f una p ( do f un a p 1 + 1 1= sym t ab 1 e ( 5 I ]. d i men ) 

{ 
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error(symtable($l] .syTibol / msafo) ); 

> 

{semant(53/$l); } 

! nume r i c <-b i f <-noa rm 

f 

s t r i ng<-b i f ^ re f : string<-bif *(* = 

{ $$ = $i; d f una r [ ^ ^do f una r] =0 ; } 

1 s t r i ng^b i ^re f string^ref */* = 

{ $$=$l;dfunar(dpfunar]+f;} 

7 

nume r i c<-b i f ^ re f : numeric^bif *(* = 

{ $5 = Si; dfunarf++dpfunar]=0; } 
nume r 1 c <-b i f r e f : nunneric^bif *(* = 

{ SS = Sl; dfunar(dDfunar]+-i'; } 

; 

nume r i c <-b 1 f <-noa rm : r\umeric^bif = 

{semant(53/$l); } 

func^-ref*: f unc<-re f <-head numeric<-exo ')' = 

{ if ( d f un a r [ do f un a r- - ) + I 1 = 
symtable[$ll .dinien) 

{ 

errorCsymtabletSn .symbol ^msgtb] ) > 

> 

semant(3'^/Sl);} 

; 

f unc<-re f <-h ead : function«-id '(' = 

{ $5= Si; dfunar[++dofunar]=0;} 

I f unc <■ r e f ♦•h e ad numeric^'exo = 

{ df unar (dpf unar] + + ; $$ = $!;> 



c a 1 1 ^s t a t emen t : call*-head = 

{ seoiant(66/Sl); > 

! call <-nhead = 

{ senr. ant(66,$l); } 

! call*-head numeHc^-exp = 

{ oncnt++; semant(63/51-oncnt); SS=51 

semant(6b/Sl); ) 

! call«-head array<-ia ')' = 

{ oncnt++; semant(b3/Sl-oncnt); S5=S1 

semant(bb/Sl); } 

! call*-head string<-exp = 

{ cncnt++; semant(b3f$l-oncnt); SS=S1 

seman t ( bb / 1 1 ) ; > 

I call<-head '8.' numeric^'ia ')' = 

{ oncnt+ + ; seman r ( bi / S 1 -one n t ) ; $S = $l 
semant(bb»Sl); > 



call<-head: call<-nhead '(' 

{ semant(b^/-l); 
! call ♦■nhead ' = ' 

{ seman t ( 1 » $ 3 ) ; 

I ca1l<-shead ' = ' 



semant(b3»Sl); S$=S1; 
nume r i c 1 o ' ( ' 
s em an t ( b 3 f S 3 ) ; S$ =S3; 
numeric^-id '(' 



) 
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4 

i 



i 



{ 



i 

1 



4 



S3; } 



{ seman t ( l » S 5 ) ; seman t ( 63 / $3 ) ; $$ = 

call^head nunne r i c <-e xo = 

{ oncnt + + ; seman t ( 63 » 5 1 -oncn t ) ; 
ca)l<-head array«-id = 

{ oncnt+ + ; seman t ( 63 f $ 1 -one n t ) ; 
call+-head strinq<-exD 
{ oncnt++-; sefnant(63fSl-oncnt); 
ca11<-head numeric^id 

{ oncnt+ + ; s eman t ( 6 3 > S 1 -one n t ) ; 



$S=$ 1 ; 
$$ = Sl ; 
$S=Sl; 
$ ? = $ 1 ; 



cal 1 <-n h e ad : 



CALL numeric<-id 
< semant(l»$2); S$=$2; 1 



cal 1 ♦•shead : 



CALL string<-ref 
{ semant(67/-l); > 



e X t e rn*-s t a t emen t : extepn<-6ead 



extern+'headr EXTERN TYPE nun'eric<-ia parm<-def 

{ svfntable[53].lenqth = S2*2; 
symtaDlel$3] .dimen=oncnt; £$ = $2*2; 
symt ab 1 e [$31 . t yoe = 10; oncnt=0; } 

! EXTERN nuweric<-id oarm<-def = 

{ sy^table[$2) .length=0; 

symt ab 1 e ( $21 .di men = oncnt ; $$ = 0; 

s ym t ab 1 e I $2 1 , t yne = 10; oncnt=0; } 

! EXTERN *R' TYPE numeric^id parm«-def 

{ svmtable 1$^) . lenath = $3*2 + C0ISP; 
symtablel$^l .di'"en = oncnt; SS = $3*2 + CDISP; 
symt ab 1 e [S'-*] . t yoe = 10; oncnt=0; } 

I extern<-head nuneric«-id Darni«-def 

{ symtable[$3] .length = $l; 

symtable[$31 .dimen=oncnt; $$=$l; onent 
s y m t ab 1 e I S 3 1 , t yoe = 10; } 



par.T<<-def : 

f 

( 

f 

I 



I 

f 



' ( ' • ) ' 
pa rm«-head 
{ one n t -t- + ; 
symtablelj] 
syTit ab 1 e [ j 1 
parrri«-head 
{ oncnt*+; 
sy mt ab 1 e [ j ] 
s ym t ab 1 e [ j ] 



TYPE ’ ) ' = 

j = i n se r t ("<-<-") ; 

, 1 enath = $2*2; 

. t y pe= - 1 ; } 

' & ' TYPE ' ) ’ 
j = i nsert ("«-<-”) ; 

. length = $3*2 + CDISP; 
. t ype= - 1 ; } 



pa rm^head ; 



I 

I 



' ( ’ 

oarfti«-head TYPE ' r ' 
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1 

1 

9 


{ oncnt + t/ j = insert( 
symtablelj) .lenqth=S2*2; 
s vm t ab 1 e 1 j 3 . t y oe= -1; > 

oarrn*-head TYPE 

{ oncnt+ + » j = insert( 
symtabletj] .length = S3*2 + CDISP; 
symtable(j].tyDe= -1; > 


} 

%% 

i nc 1 ude 


"./bscan.c" 
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semantic actions 



semant(ca/i) int ca/i; 
( int k / k 1 ; 

switch (ca) 

{ 



case 1 : 
case 2 : 



case 3 : 
case 6 ; 



case 7 : 



case 8 : 



case 9 ; 



case 10 



orintf("'T>ov JS%d/“(r4)\n"/i); return 
j=symtable[i] .tyoe; 
if ( j == 0 ) 

error(symtable(iJ .symbol /msalSJ ) 
printf(".alob1 OOPCALNn"); 
c>rintf("mov $SD%d/-(r^)\n")/ 
orintf("jsr DC/DOPCAL\n"/i); 
r e t u rn ; 

orintf(''mov JN%df“(r^i)\n"/i); return 
orintf("movf *(r^)+/frl\n"); 
orintf("movf *(r^)+/frO\n")J 
p r i n t f ( " . q 1 ob 1 PowNn"); 
printf("jsr pC/pow\n")» 
j=temocnt++- % 20 r 
orintf("mov ST%d/-(r^i)\n"/j); 
orintf("movf fr0/*(r^)\n"); 
ret u rn / 

j = t empcnt + + % 20 ; 
printf("movf *(ry)+/frl\n”); 
orintf(”moyf *(r4)+/fr0\n")» 
orintf("mu1f frl,fr0\n”)/ 
printf(''mov $T%d/-(r^)\n"/j ); 
Drintf("movf fr0/*(ry)\n"); 
return; 

i=temocnt++ % 20; 
print f("movf *(ry)+/frl\n"); 
orintf("movf *(rU)+,fr0\n"); 
printf(".qlobl ERRUP\n"); 
printf("cmpf $0/frl\n'*); 
orintf("cfcc\nbne 2f\n"); 
print fC’jsr r5 , ERRORNn " ) ; 
printf("<runtime error attempted"); 
orintff" division by 2 ero\\n\\ 0 >"); 
orintfC"; .even\n2:\n"); 
orintf("divf frl/fr0\n"); 
printf("mov $T%d/-(r4)\n"/j); 
orintfC "movf fr0/*(ry)\n"); 
return; 

j =t emocnt % 20 ; 
orintfC "movf *CriJ) + /frl\n"); 
orintfC"movf *Cry)t/frO\n"); 
orintfC"addf frl/fr0\n"); 
orintfC "mov $T%a/”Cr^)\n",j); 
orintfC "movf fr0/*Cr4)\n"); 
return; 

j = temocnt<'+ % 20; 
orintfC "movf *Cr4)+/frl\n"); 



128 



case 



case 



case 

case 

case 

case 

case 

case 

case 

case 

case 



case 

case 

case 

case 



Drintf("rrovf *(r4)f/frO\n”); 
printf(’*subf frlffrOXn'*); 
printf(’*mov $T%d,-(r4)\n"fj); 
Drintf('*movf fr0,^(p4)\n'*); 
r e t u r n ; 

lit j=temocnt++ % 20? 

orintf C'*movf ^(r4)frfr0\n”)? 

Drintf ("absf frOXn”); 
printf(‘*mov ST%d/-(r4)Xn"/j)? 
printf(**movf r0f^(p4)Xn**); 
p e t u Pn ? 

12: j = t* empc n t + % 20; 

ppintf("movf ^(p4)t,fr0Xnpiegf fpOXn") 
ppintf("mov $T%df-(p4)Xn**fj); 
ppintf('*rnovf p0/^(p4)Xpi’*); 
pe t u pn ; 

13: ppintf('*rPOvf *(p4)f^fr0Xn'*); 
pPintf(”Tr)ovf fpO/*(p4)tXn”); 
p e t u p n ; 

1'4 : ppintf('*mov ? 1 f / - ( p4 ) Xnb p 2fXn**); 

DPintf(”l: <%sXXO>Xn.evenXn'*,stig); 

opintf(”2; mov $%Of-(p4)Xn"/Stigl); 
pe t u pn ? 

15: DPint:f(**.globl stP^vXn'*); 

DPintf('*jsp PCfStpmvXn"); 
pe t u pn ; 

16: ppipitf(*'jmp ”); petupn; 

17: ppintf("jsp DC/'*)? petupn? 

18: DPintf('*Pts pcXn'*)? 

pet UPn? 

19: j=numpeps [il .numpepi ? 

DPintf('*XnL%d:Xn”/ j )? petupn? 

20: j=numDeps[i] .numbePi ? 

ppintfC'*L%dXn"f j)? petupn? 

21: oncnt=0? 

ppintf(”movf *(p4) + ,fr0Xn'*)? 
DPintf("movfi fpO,p3Xn'*)? 
ppintf(*’aec p3XncmD $0/p3Xn'*)? 
ppintf(**jgt SfXn'*)? 
ppintf(**jmD 6fXn7: as) p3Xn**)? 
if ( i == -1 ) 

OPintf(**jmp *8f(p3)Xpi^); 
else { 

ppintf('*jsp pC/*6f(p3)Xn'*); 
ppintf('*jmp 5fXn”); } 

ppintf('*Xn8:Xpi**)? 
p e t u p n ? 

22: oncnt + i-? petupn? 

23: ppintf(**Xn6: crno $%d/p3Xn”,oncnt)? 
ppintf(”bge 7pXpi5:Xn")? 
pe t u Pn ? 

24: DPintf(**jmo ENDE^Xn'*)? 

pe t u pn ? 

25: ppintf('*movf *(p4) + ,fp0Xn")? 
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case 2b: 



case 27 : 



case 28 : 
case 29: 
case 30 : 



case 31: 
case 32 : 



case 33 : 

case 3a: 
case 35 : 

case 36 : 



case 37 : 



case 38 : 



case 39 : 



printf(**movf ★(ra)f^frl\n**); 
printf(**mov ?%o^r3\n*\i); 
pn‘ntf('*cmDf frl^frONn'*); 
printf(”cfcc\n”); 
orintf(**.g1obl COMPARXn**); 
orintf(**jsr oCfCOMPAR\n‘*); 
return; 

Drintf(*’«q1obl strcmoXn**); 
Drintf(”jsr oc^strcmoXn'*); 

Dr intf("mov 3%0/r3Xn'*fi); 
Drintf('*cmp 5 0^(ra)+Xn"); 
or 1 nt f ( ” - ql obi COMPARXn'* ) ; 
print f (”jsr pc . COMP ARXn “ ) ; 
r e t u rn ; 

orintf("tst (ra)+Xnbeq afXn**); 
r e t u r n ; 

printf(**Xna:Xn'*); return; 
printf(”Xn9:Xn'*); return; 
j ^numbers [i 1 .numberi ; 
printf(”L%dXnXna:Xn’*/ j); 
re t u r n ; 

orintf('*jmD 9fXnXna:Xn’*); return; 
printf('*mov SDATA-8./DATCNTXn’*); 
printf(**mov JSTRDATA,STPNEXTXn‘’); 
r e t u r n ; 

printf(’*.glob1 danrdrXn’*); 
printf('*jsr cCfdanrdrXn**); return 
printf(”jsr DC^FN%dXn’*^ i ); return; 
orintf(”jmo FX%dXnXnFN%d:XnXn‘*/i/i 
r e t u r n ; 

symtablefil .dimen + + ; 
k=i-symtable[il .dimen; 
for(j=k; j<i; )+’»•) 

{ orintf(”movf *(ra)+/frOXn’*); 
orintt(”mov $S%q^-(ra)Xn’*^ j ) ; 
printf(**nnovf frO^^(ra)+Xn**); 

} r e t u r n ; 

printf(’*movf ^(ra) + ,frOXn’*); 
Drintf('*mov $S%df-(ra)Xn’*ri); 
printf(”movf fr0f*(ra)+Xn’*); 
printf(**rts ocXnXnFX%d:XnXn**^ i ) ; 
k=i-symtable(i] .dimen; 
for (j“k; j<i; ) 

symtablefj] .symbol [0] = *-»*; 
re t u rn ; 

printf(’*movf *(ra)t, frOXn”); 
Drintf('*mov SS%d/-(ra)Xn'\i); 
printf(**movf frO^*(ra)+Xn’*); 
r e t u r n ; 

j=forctr+t; 

orintf(’*movf *(ra) + , frlXn’*); 
orintf(”mov 3FI%d/-(ra)Xn*’^j); 



printf("novf frl,*(r^)+\nbr lf\n")/ 
orintf ("\nF6%d:\n", j ); 
printf("'i'ov $S%a/-(ry)\n",i); 
printf("mov $FI%d»-(r^<)\n"/ j ) ; 
printf("movf *(r^)^/frl\n"); 
printf("'Tiovf *(r^)/frO\n")/ 
kl=looknf (1.); 

if (kl == -1) { kl=insertnr(lfl.); 

numbers [k 1 ). I use = l f > 
printf("addf N%d/frO\n")J 
printf("movf rO,*(ry)+\n"/kl); 
printf("l: cmpf frO/frl\n"); 

printf("cfcc \njgt F5%d\n"/j); 
return; 

case ^0 ; 

j=forctr++; 

Drintf(''movf *(r^) + >fr2\n"); 
printf("mov $FI%d,-(r^J)\n", j ); 
printf("movf fr2/*(r^)t\n"); 
printf("movf *(rU)+,frl\n"); 
printf("mov SFW%d»-(ry)\n"> j ) } 
printf("movf frl/*(r^)+\n"); 
printf("mov .SS%d/-(ry)\n"/i); 
printf("movf *(r^)+ffrO\n"); 
orintf("br lf\n\nFb%d;\n\n"); 
printf("mov $S%df-(r^)\n", ] , i ); 
printf("mov 5FM*4d/-(r<l)\n"); 
printf("mov 1>FI%d/-(ry)\n"/j/j); 
Drintf("movf *(r^)+/fr2\n"); 
printf("movf *(ry)+/frl\n"); 
DrintfC'Vovf *(r^)/fr0\n"); 
Drintf("addf fr2>fr0\n"); 
printf("movf fr0,*(r4)+\n")/ 
kl=l ooknf (0. ) ; 

if (kl == -1) { k 1 = i n se r t n r ( 0 / 0 . ) ; 

number s ( k 1 ). 1 use= 1 ; } 
printf("\nl:\ncmpf i'J%d / fr2\n"); 
printf("cfcc\njgt ?f\n"/kl); 
printf(”cnnDf frO/frl\ncfcc\n"); 
printf("jat F5Xd\n",j); 

Drintf("jmD 3f\n\n”); 

Drintff"2; cmof fr0,frl\n"); 
printf("cfcc\nj1t F5%d\n"/j); 
printf("\n3:\n\n"); 
re t u rn ; 

case ^ I : 

printf("jmD F6%d\n\nF5% d:\n\n i , i ) ; 
r e t u r n ; 

case ^2: printf(".qloo1 numptrXn"); 
case 42: printf("jsr PC/numDtr\n"); 
r e t u r n ; 

case 43: pri nt f ( " .gl obi stromoNn"); 

printf("jsr pc/Strdmo\n"); 
r e t u rn ; 
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case ^ ^ : 
case 45 : 
case 46 : 

case 48: 

case 49 : 
case 50 : 



Drintf(".globl lindmoXn"); 
printf("jsr oc^lindmoXn"); 
return; 

print f("rr'ovf *(r4) + ,fr0\n"); 
printf("(T'ovfi fr0>-(r4)\n''); 
r e t u r n ; 

printf("mov $S%d/-(r4)\n"> i ) ; 
k = svmtabie[i] .length; 
printf("mov $%o,-(r4)\n"»k); 
r e t u rn ; 

printf(".glob1 nbrrar,atof\n"); 
print f("jsr PC » nb r r d r \ n " ) ; 
print f(”jsr pc>atot\n"); 
printf("movf fr0f*(r4)+\n"); 
r e t u rn ; 

printf(".globl strrdrXn"); 
printf("jsr PCfStrrdrNn"); 
r e t u r n ; 

printf("mov $%Of-(r4)\n"f 

numbers [i] ,numberi*2); 



re t u r n ; 

case 51; 

Drintf("mov $lf/-(r4)\nDr 2f\n"); 
printf("l; <%s\\0>\n.even\n",stiq); 
printf("2: mov S%0/“(r4)\n'*» 
numbers ti 1 .numberi *2 ) ; 
printfC'.globl 0PE^I\njsr PC»0P£f^\n") 
re t u r n ; 

case 52; printf("mov S%o#"(r4)\n"» 

numbers li] .numberi *2); 
printf C'.alobl CLOSEXn"); 
pr i nt f ( " j sr pc , CLOSEXn” ) ; 
r e t u r n ; 

case 53 ; 

switch(symtablefi] .length) 

{ 



case 0: // std calling frO and jsr dc»X 

i f ( s y m t ab 1 e [ i ) . am t == 0) 

{ printf(".qlob1 %sXn", 

symtableti] .symbol); 
symt ab 1 e I i ] . am t + + ; } 

printf("movf *(r4)+»fr0Xn"); 
printf("jsr oc»%sXn"> 

symtableii] .symbol); 
j=tempcnt++ % 20; 
printf(”mov 5T%df“(r4)Xn”»j); 
printf("movf fr0>*(r4)Xn"); 
return; 

case 1; // ABS 

printf("movf *(r4),fr0Xn"); 
printf("abst frOXn”); 
printf("movf fr0/*(r4)Xn"); 
return; 



case 2 : 



i f ( sym t ab 1 e ( i ] . am t == 0) 

{ printf(".g1obl %S/atof\n", 

symtableCi] .symbol )J 
symt ab 1 e t i ] . amt + + ; } 

orintf("jsr oc»%s\n"/ 

symtable(i] .symbol )/" 
Drintf("jsr DC>atof\n"); 

j=temocnt++ % 20; 

ori nt f C "mov ST%d , - ( ra ) \n " , j ) ; 

orintf("movf fp0,*(ry)\n"); 

return; 

case 3 ; 

i f ( sym t ab 1 e { i ) . am t == 0) 

{ D r i n t f ( " . g 1 OD 1 %s\n"/ 

symtableti] .symbol); 
s ym t ab 1 e [ i 3 . am t +• + ; } 

Drintf("jsr bC/%s\n", 

symtable[il .symbol ); 
j=tembcnt++ % 20; 

Drintf("mov $r%d/-(rU)\n"/j); 
printf("movf fr0,*(r4)\n"); 
return; 

case 6; // chr$ unique because S not valia 
/ / in as 

i f ( symt ab 1 e ( i 3 . am t == 0) 

{ printf(".qlobl %s\n","chr"); 

symtableti 3. amt++; > 
printf("jsr PC/Chr\n"); 
return; 

case 8 ; 

if(symtableti3.amt == 0) 

{ printf(".globl %s\n"/ 

symtable ti3 .symbol ); 
s ym t ab 1 e [ i 3 . am t + + ; ) 

orintf("jsr oc/%s\n", 

symtableti! .symbol); 

return; 

default: return; 

} 

case 5^ : 

printf(".alobl datrdrXn"); 
printf("jsr oc / da t rd r \n " ) ; 
return; 

case 55 ; 

if ( i == -I ) 

printft"mov 51301, r0\n"); 

else 

printf("movf *(r^)+,fr0\n"); 
printf("movfi fr0,r0\n"); 
printf(".alobl sranoNn"),’ 
orintf("jsr pc,srand\n"); 
return; 

case 5b : 

or i nt f ( " .ql obi X0R\n"); 
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case 57 
case 50 

case 59 

case 60 

case 61 
case 62 

case 63 

case 6^ 
case 66 



case 67 



Drintf("jsr oc/XOR\n"); 
return; 

or i n t f ( " . a 1 ob 1 0R\njsr DC/0R\n"); 
r e t u r n ; 

Drintf(”.q1obl AND\n"); 
printf("jsr oc»AM0\n"); 
r e t u r n ; 

orintf(".qlobl N0T\n"); 
printf("jsr PC/N0T\n"); 
ret u rn ; 

printf(".qlobl SDCALNn"); 
printf("jsr PC/SDCAL\n'')/ 
return; 

printf (".qlobl SU8STR\n"); 
printf("jsr oc/SUBSTR\n"); return; 

printf("'nov lf/-(r9)\nbr 2f\n"); 
printfC’l: ,byte 012,0;"); 

printM" ,even\n2;\n"); 
printfC". qlobl strarroNn"); 
printf("jsr oc , s t rdmoNn " ) ; 
r e t u r n ; 

orintfCnov $%o,-(r9)\n", 
symtableli) .lenqth); 
return; 



orintf("clr -(rA)\n"); 
return; 



f (oncnt 1= symt ab 1 e [ i 1 .di men ) 

error(symtab1e[il .svnbol ,nsq[b] ) 
f ( symt ao 1 e [ i 1 . ant == 0) 

{ syntabletil.amt =l; 
or intf(". qlobl ♦•%s\n", 
symtableti) .symbol);} 
irintf("mov S%o,”(r9)\n", 
symtableti ] .dimen); 
irintf(". qlobl CSETNn"); 
irintf("j'sr oc,CS£T\n"); 
irintf("isr oc,<*%s\n", 

symtableti] .symbol ); 
irintfC". qlobl CRETNn"); 
irintf("jsr pc, CRETNn"); 

■e t u r n ; 



printf("mov 
print ft "mov 
orintf("mov 



tr9)+,r3\n"); 
tr9)+,r2\n"); 
r2,-(ra)\n") ,* 



case 68 



case 66 



case 70 



case 71 



case 72 



case 75 



case 7 a 



orintf("mov r3>-(r<4)\n"); 
return; 

printf("mov S% 0 /-(ry)\n"/ 

numbers [il . number i *2); 
Drintf(".a1ob1 READF\n"); 
orintfC’jsr oc , READFNn" ) ; 
return; 



Drintf(".qlob1 READFi'J,atof\n") 
orintf(''isr pC/REAOF^J\n"); 
printf(''jsr pc»atof\n"); 
printf("movf fr0»*(r6)+\n"); 
return; 



pri nt f ( " .al obi READFSNn"); 
printfC'jsr oc,READFS\n"); 
r e t u r n ; 

print f(".aloDl READFENn"); 
printfC'jsr oc»READFE\n’’); 
re t u r n ; 

p r i n t f ( " . q 1 o b 1 W R I T F \ n " ) ; 
printf("jsr oc»tNRITFM\n"); 
return; 

pri nt f ( ” .ql obi /JR I TFS\n ’’ ) ; 
p r i n t f ( " j s r p c > W P I T F S \ n " ) ; 
return; 



printf(''.qlobl /JRITFENn"); 
printf(”jsr PC»wRITFE\n"); 
re t u r n ; 

case 75 : 

printf("mov $%o»"(r6)\n”/ 
numbersfi) . numbe r i *'2 ) ; 
printt(''.qlobl /jRITFXn"); 
printf("jsr pC//JRITF\n"); 
return; 

> } 

caldooe(ifjl^k) int i>jl;k;{ 

int il; dopeCdooept]=l; 

symtableCi] .amt=l; 

for ( i I =dopep t - 1 ; il > k; il--) 

< symt ab 1 e [ i ] . amt =* (dooeMll+1); 
dooe[ill=* dope ti 1 + 11; ) 

s ym t ao 1 e [ i ) . am t =* (dopelkl+l); 
dope I k ] = j 1 ; 



> 



STRUCTURES 



» 

a define TRUE 1 
U de fine FALSE 0 
« define ERRORFILE 2 
# define SYMSIZE 200 
U define NUMSIZE 200 
tt define NAMELENGTH la 
tt define S I M L E M 10 
» define COISP 10 
a define MAXFOP 10 



char fi1int5l8]; 
char *fi1ein filin; 
extern int foutJ 
i n t f i 1 e o u t ; 

char f i 1 nam [NAMELENGTH + 1 ] ; 



/* this array defines the function of each character in 
the ASCII character set for use in vylex 

”2 = eof and end totcen for yacc 

-1 = illegal characters to be deleted 

0 = blanks and tabs to be discarded 

1 - newline ~~ used to uodate line counter 

2 = legal scecial cahracters 

3 = all letters and the dollar sign '5* 

= digits and the decimal ooint 

5 = quote used to delimit strinas and 

deleted "" 

6=5-“ continuation 



int chartyoe (1281 { 

- 2 , - 1 ,- 1 , - 1 ,- 1 , - 1 ,- 1 , - 1 ,- 1 , 0 , 1 , - 1 ,- 1 , 

— 1 , — 1 ,— 1 , — 1 , — 1 ,— 1 , — 1 , — 1 ,— 1 , — 1 , — 1 , — 1 ,— 1 , 

— 1,"*1,”1, — 1, — 1,-1,0,2,5,“ 1,3, — 1, 

2, - 1 , 2 , 2, 2, 2, 2, 2, a, 2, a, a, a, a, a, ii, a, a, a, y, 

” 1 , 2 , 2 , 2 , 2 ,— 1 , 6 , 

3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 

2 ,- 1 , 2 , 2 ,- 1 , - 1 , 

3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 

- 1 , 2 , - 1 ,2,-1); 



int yyline l,errorcnt 0; // olbl line cntr'for yacc 

int conflag 0, exflag l; // cont and extern ref flag 

int c; // the global next character 

char stig (2561; // the global string collector 

int stigl; // the length of the string literal 



i n t 


d i m V Of 


eofflaa 0; 


i n t 


de f V 


o; 


i n t 


f unc c n t 


0 ; / / global 


f 1 ags 


and count er 


i n t 


j ; 


// general 


t emp 




i n t 


fds 1151 


; // 


fds 


for 


READ/wRITE FILE 



Struct 


{ 










double numberf; 






i n t 


n u m b e r i ; 






i n t 


use ; 








i n t 


1 u se / 








i n t 


dec / 




} numberslNUMSIZEl; 


/ * 


numbe r s is a 


structure used to hold literal numbers 






dec = 


-1 


floatinq point declaration 








0 


integer declaration 






1 use = 


1 


used as number 






use = 


1 


used only as 1 abe 1 








2 


used as statement label 






numbe r f 


Z. 


floating ooint values 






n u m b e r i 


= 


integer value 


* / 











i n t 


numberpt 0/ 


// 


i n t 


dope (2001 ; 


// 


i n t 


dopeot / 


// 



i ndex of numbers 
vector used to hold 
next available dooe 



dooe V a 1 ues 
DO s i t i on 



St rue t { 



/ * 



c ha 


r symbol (Sli^LEN] ; 




i n t 




type; 




i nt 




d i men ; 




i n t 




1 eng t h ; 




i n t 




amt; 




i n t 




dop V ; 


} symt able [S 


sy m t ab 1 e 


is a structure used as 




symbo 1 


= i den t 


i f i e r value 




t ype 


= -1 


null parms of 






= 0 


numeric id 






1 


numeric array 






2 


s t r i no id 






3 


string array 






a 


function 






5 


numeric bif 






6 


string bif 



[SYMSIZE] 



a sy mbo 1 table 



extern variables 



7 s i mp 1 e f o r ma t 
^ numeric format 
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9 

1 0 



numeric string bit 
external variables 



d i m e n 

1 eng t H 
dope V 

amt 



★ / 



dimension of array 

number of oarameters for function 

lenght of a string 

index of the first element of 

the arrays dooe vector in dooe 

use for bif’s l=usea 0=unused 

number of elements in numeric array 

number of bytes in a string array 



int symot SYMSIZE-1; // oointer into the symbol table 
int tnum/tsym; // temooraries is structures 

int RwBASE? // base of reserve words in symbol taole 



int forcnt 0; int temocnt 0/maxtemp -i; 
int maxfor -1; int oncnt 0; 
int forctr 0; 



/ ^ forcnt 

t empc n t 

max f o r 

oncnt 
f o rc t r 

*/ 



current depth of nested for loops 
value used to manage the temporary 
pool used as tempcnt%20 
maximum number of for loops nested 
to this point in the Program -- 
used to Determine number of for loop 
V a r i ab 1 e s needed 
count of ON statement label 
current count of all FOR’s used -- 
used for label defintion 



int dfunar[20]; int dcfunar 0; 

int dataot 0; // oointer to the next data value 

double aata[100]; // data list to oe used as data to READ 



char *msg [ ] { 



” **ERR0R** 


a 1 1 eTip t 


t 0 


rede fine 


a numeric id as array 


•'**ERR0R** 


at t emo t 


t 0 


redefine 


an array id "» 


" **ERR0R** 


a 1 1 emot 


t o 


rede fine 


a string " / 


" **ERR0R** 


at t emot 


t 0 


redefine 


function "/ 


"**ERR0R** 


a 1 1 e?TiDt 


t o 


redefine 


built in function "/ 



’•★★ERROR** 
” **ERR0R* * 



attemoted use of numeric id as array 
incorrect number of oarameters '*/ 



”^*ERROR*^ illegal use of external nane”f 
”^*ERR0R^^ illegal use of string id as string array'* r 
0 

} ; 

extern char *bifs[); 
i n t b i f t ype ( 1 { 



/★ variables for data string collection */ 

char datastrinat^OO]; 

char *datastor ^oatastrinafO]; 

ti define Sr^-tSIZE 200 
U define NUMSIZE 200 
define SI»^LEN 10 



s t rue t number s { 

ooub 1 e numbe r f ; 



extern struct numbers numbers!]; 

/* numbers is a structure used to hold literal numbers 




1 n t 
i n t 
i n t 
i n t 



number i ; 
use ; 

1 u s e ; 
dec ; > 



dec 



1 us e 
use 



1 floatina point declaration 

0 integer declaration 

1 used as numbe r 

1 used only as label 

2 used as statement label 



numbe r f 
numbe r i 



floating point values 
integer value 



st rue t symt able { 

char symbol ISIN^LEN] 



i n t 
i n t 
i n t 
i n t 
i n t 



t yoe ; 
d i men; 

.length; 

amt; 

dopv; > ; 



extern struct 



symtable symtable U; 
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sym t ab 1 e 



/ * 



* / 



is a structure used as a symbol table 



s ymbo 1 
type 



\ 



i dent i f i e r value 

-1 null parms of extern variables 

0 numeric id 

1 nume r i c array 

2 string id 

3 string arrav 

^ function 

5 numeric bif 

6 string bif 

7 simple format 

8 nume r i c f o rma t 

9 numeric String bif 

10 external variables 



d i men 

1 eng t h 
dope V 

amt 



dimension of array 

number of oarameters for function 

lenght of a string 

index of the first element of 

the arrays dope vector in dooe 

use for bif’s loused 0=unuseo 

number-of elements in numeric array 

number of bytes in a string array 



/ ★ 
the 



following definitions are the reserve words of BASIC 
reservewords = caoitol spellings 
1 r ese r vewo ro s = lower case spellings 

note the * ’ inserted to all texts 

to allow ”C" to process the values 
of its own reserve words. 



*/ 



char ★reservewords 
'•STEP% 

'•GO‘% 

"DEF% 

••DIM”, 



••END'* 

"FOR" 

"LET" 

**REM*’ 



f 

9 

9 

9 



"DATA”, 

"ELSE", 

"GOTO", 

"FILE", 



"NEXT", 



U 



{ 




’i 



( 



\ 



% 







"Rt AD” , 
"OPEN" , 
"STOP" , 
"THEN" , 
"GOSUB" , 
"INPUT " , 
"PRINT" , 
"CLOSE" , 
"NRITE" , 
"RETURN" , 
"RESTORE" , 
"SUB", 

"RANDOMIZE" , 
"EQ", 

"LT", 

"GT" , 

"GE", 

"LE", 

"NE" , 

"REMARK " , 
"CALL" , 
"EXTERN" , 
"INTEGER", 
"FLOAT", 
"DOUBLE" , 
"CHAR" , 

" ADDR" , 

"OR" , 

"XOR" , 

"NOT" , 

"AND" , 

0 

> ; 



char * 1 rese r vewo rds [] { 

"♦-St eo" , 

"♦-go" , 

"♦-if", 

"♦-on" , 

"♦-to", 

"♦-def ", 

"♦-dim", 

"♦-end" , 

"♦-for", 

"♦•let" , 

"♦-rem" , 

"♦-data" , 

"♦-else", 

"♦-goto" , 

"♦-file", 

"♦-next " , 

"♦-read" , 

"♦-ooen" , 

"♦-stoo" , 



lai 



" 1 h e n " , 

"<-gosuD" $ 

•'«-i nput " / 
"sprint", 

"■»-c 1 ose" , 
”<-wri te" , 
"♦-return" , 
"♦■restore"# 
"♦-sub" # 
"♦-randomi ze" > 
"♦-eq" / 

"♦-It", 

"♦-gt " , 

"♦■ge" , 

" ♦- 1 e " , 

"♦-ne" , 
"♦-remark" , 
"♦-call", 
"♦-extern", 

"♦- i n t eqe r " , 
"♦-float", 
"♦-doub 1 e" , 
"♦-char" , 
"♦-addr", 

"♦-or" , 

"♦-xor " , 

"♦■not " , 

"♦-and" , 

0 

} ; 



char *bifs[] 



" a t a n 
"exp" 
"mod 
"log 
" rnd 
"sin 
"cos" 
"sort 
"tan" 
" 1 e n " 
"asc" 
" c h r S 
"cosh 
" i n t " 
" s 1 n h 
val " 
rad" 
deg" 

. r* 
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paqe " » 
abs" , 



SCANNER 



/* the following are the user defined functions reguired 
to provide scanning */ 
e X ( ) 

{ extern int yylvalj // this value is used to return 

// va 1 ues to yacc 



double 3tof(); 

char idll0],numstrt501; int i/k,i; double o^b? 
while (TRUE) // go forever or until return 

{ 



swi tch(chartyoe (cl ) 

( 



/* eof and the end 
token for yacc 
illegal characters 
0 I an k s 
new 1 i ne 

legal specials 
letters 

digits and dec i ma 1 

strings 

continuation 



case -2 
case - 1 
case 0 
case 1 
case 2 
case 3 
case A 
case 5 
case 5 



default: 

case -2: return (c)/ // if we get here 

// we'd better be oone 
case -1: iaC0]=c? idtll='\0'; 

error(id»"illegal character deleted"): 
c=oetc(filein); break; 

// throw away illegal characters 
case 0: c =ge t c ( f i I e i n ) ; break; 

// blanks thrown away 



/* just update the line counter and return 
newline to vacc */ 



case 1 : 

yyline++; i=c: c=getc(filein); 

if (eofflag) c=0; 
if (I conflag) 

{ exflag=l; dimv=0; defv=0; 
if(tenocnt > maxteDo) 

maxtenno = tempcnt; 
tempcnt=0; return(i); ) 
conflag=0; break; 

// continuation on next line 
case 2: i=c; c=getc(filein); 

// return the legal character as is 
return (i); 



case 3 



i=0; idCi++]=C/ 



/* collect the 
wore is longer 



s and reserved words 



//collect id 
c=getc(fi lein); 

first letters in id -- note no 
than 9 and id's are limited to ^ 
while (({chartvDe[cl==3) !l 
(chartyoe Cel = = ) 

i < 9) 

{ id[i++)=c/ c=getc(filein); > 

id(i)='\0'; j=i; 

// pad null to end string 
/* upper case reserve words */ 
l=lookrs(id); 
if (1 1= -1) // return 
switch ( 1 ) 



reserved 

*/ 



reserve if valid 



{ 

case 

case 

case 

case 

case 

case 

case 

case 



return (STEP); 
return (GO); 
return (IF); 
return (OM); 
return (TO); 
defv=l; return (OEF); 
dimv=l; return (DIM); 
eofflag=0; return (END); 
// guarantee eof 



case 


8; 


return 


(FOR) ; 




case 


9; 


r e t u r n 


(LET) ; 




case 


1 0 ; 


» 






case 


35; 


I whi le(c i= '\n' ) 








c =ge t c 


(filein); return(REM) 


case 


1 1 


r e t u r n 


( D 4 T A ) ; 




case 


12 


r e t u r n 


(ELSE) ; 




case 


13 


r e t u r n 


(GOTO) ; 




case 


la 


r e t u r n 


(FILE) ; 




case 


15 


re t u r n 


(NEXT ) ; 




case 


16 


r e t u r n 


(PEAD) ; 




case 


17 


r e t u r n 


(OPEN) ; 




case 


1 8 


re t u rn 


(STOP) ; 




case 


19 


r e t u r n 


( THEN) ; 




case 


20 


r e t u r n 


(GOSUB); 




case 


21 


r e t u r n 


(INPUT ) ; 




case 


22 


r e t u r n 


(PRINT ) ; 




case 


23 


re t u r n 


(CLOSE) ; 




case 


2^4 


r e t u r n 


(/•■RI TE) ; 




case 


25 


re t u rn 


(RETURN) ; 




case 


26 


r e t u r n 


(RESTORE) ; 




case 


27 


r e t u r n 


(SUB) ; 




case 


28 


r e t u r n 


(RANDOMIZE) ; 


case 


29 


y y 1 V a 1 


=0; return 


( re 1 soec ) 


case 


30 


y y 1 va 1 


=12; return 


( r e 1 soec ) 


case 


31 


y y 1 V a 1 


= 8 ; r e t u rn 


( re 1 spec ) 


case 


32 


y y 1 va 1 


=20; return 


( re 1 soec ) 


case 


33 


y y 1 V a 1 


=16; return 


( r e 1 s p e c ) 


case 


3a 


y y 1 va 1 


=^; return 


( re 1 soec ) 


case 


36 


one n t = 


0; exflag=0; 





1^5 



return(CALL) ; 



case 


37: 


oncnt=0; exflaq=0; 
return(EXTERN) ; 


case 


38: 




case 


39: 




case 


qo : 




case 


9 1 : 




case 


«2: 


yylval=l-38; return(TYPE) 


case 


a3: 


return(OR); 


case 


«a : 


return(XOR ) i 


case 


US: 


return(NOT) ; 


case 


at: 


r e t u r n ( AND ) ; 



> 

not a reserve word look for an ID if length ok */ 

if (j >= 5 &8f exfiaq) // ^ char limit on std ids 
{ errorCid^ 

** illegal ID name -- numeric ID used*’); 
i d [4] = ’ \ 0 * ; i =1 ookuo ( i d) ; } 
else i = 1 ookup ( i d ) ; 



/ ^ 

Any ID which conforms to normal BASIC ID definitions is 
acceptable -- thus the following forms are recommended 



numeric id's 


-- letter 




letter digit 


string id's 


-- letter 'S' 




letter aigit '5 


function ia's 


- - FN letter 




FN letter digit 



These forms are recommenoed however the following are 
the resrtictions which are enforced. 



1) length 1-/4 characters 

2) the id must begin with a letter^ 

uDoer or lower case 

3) rules for the recognition of types 

numeric id’s wxyz 

w = F , f 
X = N / n / S 

y S 

string id’s wxvz 



w = 

X ^ = 



1 U6 



X 



F, f 

M , n 



X 0 r y 



must 



= $ 



function id’s 



' X y z 



w must = Fff 
X must = N^n 

4) id’s may mix uoper and lower case freely 






NOTE 



reserve words are acceptable as entirely UPPER 
LOwER CASE/ however they may not be MIXED! 



CASE or 






if ( i 



= -1) // return tyoe 

f (oimv==l !! defv==l) 
switchCsymtableCi] 

{ 



if predeclared 
type) 



case 

case 



0 : 

10 



i f 



case 1 



case 2: case 3; 



case 4 i 



(defv == 1) 

{ yylval=insert(ia); 

returnCnumeri c^i d) / } 
error(id/msqt01 ); 
return(numeric^id) / 
error(id/msg(l] ); 
return(array^-id) / 
error(id/msg[2] ); 
return(string^id) ; 
error(id/msg(3] ) 7 
return( funct i on<-id) 7 



case 


5: 


case 


6 : 


» 




case 


7: 


case 


8: 


: case 9 ; 


error(id/msq[4] ) 


default: 

\ 


error(idfmsgl7]); 




y V 


1 va1 


= i ; 


» 

f 






s w i t c h 


(symt ab 1 e 1 1 ] . t yoe ) 






case 


0: 










case 


10: r e t u r n 


(nufneric«-id) 7 






case 


1 


return 


farray<-id) 7 






case 


2 


r e t u r n 


( s t r i ng<- id); 






case 


3 


r e t u r n 


(string<-ia); 






case 


a 


r e t u r n 


(function<-id); 






case 


5 


r e t u r n 


(numeric«-bif); 






case 


6 


r e t u r n 


(strinq<-bi f); 






case 


7 


r e t u r n 


( s i rro 1 e*~ f o rrrat ) 7 






case 


8 


r e t u r n 


(numeric^fornnat ); 






case 


Q 


r e t u r n 


(str<-num«-bif); 






} } 
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check for a function definition FN,Fn/fN/fn * / 



if ((id to] == 'F' : : idtO] == ' f ) && 

( i d tn == ' N' : ! i d [1 ] == ' n* ] ) 

(i=insert(id); yylval=i; 
symtableti] .tyoe = y; 

return ( f unc t i on«- i d ) ; > 

not a function -- a string id?? xS^xyS */ 

if ( i d 1 11 == ' $ ' ! 1 id [2] == ’S') 

(i=insert(id); yylval=i; 
if (dimv 1= n { 
e r ro r ( i d f 

"♦* WARDING*’* undefined string id"); 
error(id»"assiqned default length lo"); 
errorcnt = errorcnt“2; 

// back out error on warning 
syrnt ab 1 e ( i ] . 1 engt h = 1 6 ; > 

symtableti] .tyoe = 2? 
return (strings- id);} 

not function or string must be numeric */ 

i=insert(id); yylva1=i; 
return (numeric<"id); 



case d=0.; b=.l; j=0; i=0; 

// numbers fal 1 here 



does the number beain with a decimal ooint ??? */ 



numstrfj+t)=c; if (c=='.') i=l; 
c =ge t c ( f i 1 e i n ) ; 



while(chartyge(cJ == ^ j<^9) 

if (c := ' . ' ) 

{ nums t r ( j +■ + ] = c; c =oe t c ( f i 1 e i n ) ; } 

else if (i==l) ( break) } 

else ( i=l; numstr[jt+]=c; 

c=getc(filein); > 
if (i I! j<5) numstr[j]= '\0'; 

else if (j>5 !! numstrtOl >= '3') 

{ i=i; numstr(j+tl='.'; 
numstr[jl=’\0'; } 
else { nums t r [ j 1 = ' \0 ' ; } 



if (i == 0) { j = atoi(numstr); k=lookni(j); 

// declared as integer lookuo 
if ( k == -1) 

{ d=j; k = i n s e r t n r ( j / d ) ; 
numbers tk] .dec=0;}} 



else { d=atof(numstr); 



//declared as real lookuD 
j =d; k = 1 ookn f (d) ; 
if (k == -1 ) 

{ k=insertnr(j,d); 

numbe r s I k 1 . dec = ” 1 ; >> 

/* return index in number table 
in yylval and return number */ 

yylval=k; return (number) 



/* 

} } } 



case 5: stigl=0; // strings fall here 
while ( ( c =get c ( f i 1 e i n ) ) 1= 

stigl < 256) 
stig[stigl+t]=c; 

// collect the string in stig 
c=getc(filein); stig[stigl)='\0'; 

// out in the null for string 
return (string)) 
case 6; // continuation 

conflag=l; c=getc(filein); break) 

// flag on nextchar 

default: return(O)) 

end of yylex */ 



yyinit (argc^argv) int argc) char **arov) { int ij) 

if (argc != 2) ( errorC’ARG COUNT??", 0)) exit(l))) 

j=0) 

ij=0) 

whi le(arav m (j) 1= '\0' ij < NAMELEMGTH - 2) 

{ if (argvn) ( j 1 == '/') { ij=0) j>t)} 

// set filename back 
else filnam(ijt + l =argv[l) [j+ + ]) 

} 

i f ( 1 (f i Inam (i j-1] =='b' 

&& filnam [ij-2]== '.') !! ij<3) 

{ error("file tyoe??",0)) exit(l)) ) 
filnam[ij-l]='s') 

f i 1 nam [ i J 1 = ' \0 ' ) 

fout = creat(filnam/0666)) 

if (fout == ”1) 

{ error(filnam/"can not ocen??")) exit(l)) ) 
Drintf(".glool <-main\n\n.text\n\n<-main:\n\n")) 
orint f("setd\nmov SSTACK, rA\n") ) 
semant (32,-1)) 
seman t ( 55 , - 1 ) ) 

for(tnum=0) bifsltnuml 1= 0) tnum+t) 

{ J=insert(bifs[tnuml)) 

s ym t ab 1 e [ i ] . t y oe = b i f t yoe ( t num] ) 
s ym t ab 1 e ( j 1 . d i men = 1) 

symtableljl. length = bifact (tnum)) 

} 



I aR 



RWBASE=i ; 

j = 1 ookuD ( ''mod" ) ; symtabletjl .dimen = 2; 
j = lookuD("rnd")/ symtable(J] .dimen = 0; 
j = 1ookuo("page"); symtabletjl .dimen = 0; 
if ( f ooen ( a rg V ( I ] / f i 1 e i n ) == -1) 

{erPor("can not open argl",0); 

unlink(filnam); exit(l)? } 
c = get c ( f i 1 e i n ) ; } 

// called first by yacc get first character 



yyaccpt () { int k,l/m,n; char *dataotr; double d; d=0; 

print fC'.gl obi OATCNT,DATA,DATAEND"); 
print f ("STRMEXT ,STREMD, STR0ATA\n" ) ; 
printf (".data\n\n"); 
k=da t ap t *8 ; 

printf ("DATCNT: 0\n"); 

print f ("DATA; \n"); 
for (j=0; j < datapt; jht) 
numbrcv(&data(j] )» 
print f ("DATAEND: 0;0;0;0\n") ; 
printf ( "STRNEXT : . = .+ 2\nSTRDATA;\n"); 

if (datastpr 1= datastring[0])printf("\n<"); 
for (dataotr = Sda t as t r i ng C 0 ] ; 

dataotr < datastor; dataotr++) 
if (*dataotr == '\0') printf("\\0>\n<"); 

else pu t c h a r ( *da t ao t r ) ; 

printf("\\0>; STRENO: .byte 0;.bvte 0; .evenXn"); 

for (j=0; j<numberpt; j++) 

if (numberstjl.dec != 0 |! numberstjl.luse == 1) 

{ printf("N%d: "/j); 

numb r c V ( Snumbe r s ( j ] . numbe r f ) ; } 

for (j=symDt + l; j<RWBASE? ]+■■*•) 

< k = s ym t ab 1 e ( i 1 . t ype ; 
switch ( k ) 

{ 

case 0 ; 

case 10; 

printf("S%d; 0; 0 ! 0 ; 0\t/ %s\n", 

j»symtable[j) .symbol iJbreak; 
case 1: l=symtable[j].doov/ 

m = symt ab 1 e 1 j J . d i men ; 
printf ("SD%d : %o\t\t/%s\n" 

j /m,svmtable Ij] .symbol ) 
for (n=l+l; n < 1+m; n++) 

{ if (k==l) dope [nl =* 8; 
printf (" %o\n", 

dope (nl ) ; } 

break; 

case 2: l=symtable(j] .lenqtr-l; 

print f("S%d; 0; . = . + %o ; " r j / 1 ) ; 

printfC" .even\t\t/%s\n", 

symtable (jj .symbol ) ; break; 
case a: printf("S%d: 0; 0; 0; 0\t\t",j); 






pri nt f ( "/%s\n 



} 



symtabletjl .symbol ); 
break; 



j =o; 

for (k=0; k<15; k++) 
i f ( fds [k] 1=0) 

{ 

if ( fds tk] == 1) j + + ; 
else 

error("more files referenced than openeo"»0); 

> 

i f ( j 1=0) 

{ 

printf ("BUF: . = .+%o\n" , j *518) ; 

print fC’.ql obi FD,FDO\nFD;\n”); 

1 = o; 

for(k=0; k<15; k++) 
if (fds [kJ 1= 0) 

pr i nt f ( "\tBUF + %o\n" ,518*(1+ + )); 
else orintf("\t0\n"); 
print fC'FOO; . = . + 5 0 . \ n " Im- 
print f(".text\n. glob 1 FCLOSE\nENDEP:\n") ; 
printf(''jsr oc/FCL0SE\n"); 
printf("sys exit\n"); 

} 

else orintf(".text\nENOER: sys exit\n"); 



print f(”\n\n.bss\n\n") ; 

printf("STACKTOP; ,=.+50.\nSTACK: ,=.+2\n"); 

for (j=0; j <= forctr; j++) 

printf("FM%d: ,=.+8.\nFI%d: .=.+8.\n">j/j); 

if (maxtemp < 20) k=maxtemp; else k=20; 
for (j=0;j<k;j++) 

printf("T%d: .=.+ 8.\n"/j); 

for (j=svmot+-l; j < Ri'iBASE; jt + ) 

{ k = sv'Titablelj].type; 
l=symtable[j).amt ; 
swi tch(k) 

{ 

case 1; l=l*8;orintf("S%d; .=.+%o\t\t/%s\n"/ 
j»1/symtable[j) .symbol); 
break; 

case 3: printf("S%d: .=.+%o; .even\t\t/%s\n", 

i/l>symtabletj] .symbol); 



> 



} 



} 
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1 



4 



MAIN PROGRAM 



n define EPRORFILE 2 
include ''./bstruc.h" 

extern int errorcnt^ fi1eout» fout» yy1ine> R»mBASE/ 
numberpt > syoipt , j J 
extern char filnamO; 
main (argc^argy) 
int a rgc ; 
char *argv [] } 

{ 

yyini t (argc/argv)» 
if(yyparse() !! errorcnt >0) 

{ unlink(filnam); exit(l); > 
yyaccPt ( ) ’> 
f 1 ush ( ) ; 
e X i t ( 0 ) ; 

} 

compar(slfs2) // comoares two strinas returns 0 if n.e. 
char 1 f *s2 ! 

{ 

while (*sl++ == *s2) 

if (*s2++ == '0') return (1); 

return (0); 



> 



strcopy(Sft) // this orocedure copies strings 
char *s»*t; { 

while(*t++ = *s++); 

} 



numbrcvCst) int *st (]; 

< int if 

for (i=0; i<3; i++) 

p r i n t f ( ” %o ; " f s t [ i 1 ) ; 
printf(''%o 0»st(33); 



} 



error(xfy) char *x,*y} 

{ 

f 1 ush ( ) ; 
fi leout=fout; 

fout = errorfile; 

if (y == 0) 



132 



pri nt f ( " I53s0, X ) ; 
else 

printf("l53dJ %s: %sOfvyline»x/v); 
f 1 u s h ( ) ; 
fout = fileout; 
errorcnt++/ 



yyerror'(s) char { 

extern int yychar; 
extern char *yvsternn[]; 
f 1 u sh ( ) ; 
f i 1 eout = fout ; 
fout=ERRORFILE; 
orintf ("153s", s ); 

if( yyline ) printfC", line %d,", yyline ); 
orintfC" on input: "): 

if( yychar >= 0^00 ) 

printf("XsO, yyster'nCyychar-O^OO] ); 
else switch ( yychar ) { 

case ' printfC "\t0 ); break; 
case '0: printfC "\n0 ); break; 
case 'O'; printfC "SendO ); break; 
default; printfC "%c0 , yychar ); break; 

} 

errorcnt++; 

flushO; 

f ou t = f i 1 eout ; 

} 

lookupCs) char *s; { // this orocedure validates id's 

int i; // returning -1 or symboltable index 

for (i=sympt + l; i<Ri'<BASE; i+ + ) 

if ( comoa r ( s / synt ab 1 e C i 1 . synbo 1 ) > 0) return (i); 

/ * handle uooer and lower case reserve words */ 

for (i=RwBASE; KSYMSIZE,* i+ + ) 

if(comoar(s,symtable[i].symPol) > 0 || 

D i f c omoa r ( s , i ) > 0) returnCi); 

return (-1); 

} 

b i f comoa r ( s , i ) char *s; int i; 

C // check bifs by translating all lowercase to uppercase 
// returns index or -1 if no match 
int k I , k ; 

Char t [SIMLEN3 ; 

kl='a'”'A'; // difference between uopercase and lease 

for (k=0; sCk] := 'O'; k++) tCk] = sCk] + kl; 



153 




I 



t tk] 



• 0 ' ; 



return(comoar(t fSvmtahle [i ] .symbol ) ) ; 

} 

lookrs(str) /* resere word lookuo -1 is not found */ 
char *strJ { 
i n t i ; 

for ( i =0 ; r ese r vewo r ds [ i 1 1= 0; i++) 

if ( compa r ( s t r , r ese r vewo rds ( i 1 ) !! 

comoa r ( s t r , % 1 rese r vewo r ds t i 1 til)) return(i) 

return (-1); 

> 



looknf (nf) //locates numbers declared as real 
double n f ; { 

i n t i ; 

for (i=0;i < numberot; i++) 

if ( numbe r s ( i 1 . numbe r f == nf) return (i); 
return (-1); // return -1 for not founo 

) 



c 

O 

O 


(ni ) 


// this procedure 


1 ocat es numoers 






// dec 1 ared 


as i n t eqe r 


1 n t 


n i ; 


< 




i n t 


i f 








for 


( i =0 ; i < numbe ro t t i 


+ + ) 



if (numbersiil.nijmberi == ni) return (i); 
return {-1); // return -1 for not found 

) 



insert(cc) // this procebure inserts new id's and 

char *ccM // zeros all entries -- 

j=sympt"“; // returns inoex in table 

if (j<0) 

{ error(" fatal error -- symbol table overflow", 
"compi lation terminated"),’ 
unlink(filnam); exit(l)? 

} 

strcopy(cc,symtable[jl .symbol ) ! 

symtabletj) .type = 0; 
symtablelj) .dimen=0? 
symtableij) .lenqth = 0; 
symtableijl .dopv=0; 
return (j)J 
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> 



insertnr(jWd) // this orocedure adds new nunbers to the 

double d; int jlJ // number table -- zeroing all entries 
{ int i; // returns the index in the table 

i=numberpt++; 
if ( i >= NUMSIZt ) 

{ error(" fatal error -- number table overflow"/ 
"compilation terminated")/ 
unlink(filnam); exit(l)/ 

} 

numbers [i) .numberf=d; 
numbers Ci) ,numberi=jl/ 
numbers [i] .use = 0; 
numbers [i] .luse = 0; 
numbers (i) ,dec = 0; 
return (i); 
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LIBRARY 



.gl ool COMPAR, AND, OR, XOR, NOT 
.text 
COMPAR: 



3; 



5: 
a : 



NOT 



1 : 



AND 



1 : 



OR: 



j mp 


3f ( r3) 


beq 


at 


b r 


5f 


bne 


af 


b r 


5f 


bqt 


af 


b r 


5f 


bl t 


af 


br 


5f 


b 1 e 


af 


br 


5f 


bge 


af 



c 1 r 


-(ra) 


r t s 


PC 


mov 


SI ,-(ra) 


r t s 


PC 



• 

• 

t s t 


( r a ) 




beq 


1 f 


// 


c 1 r 


(ra) 




r t s 


DC 




mov 


SI , ( ra) 


r t s 


PC 




• 

• 

C mp 


( r a ) + , 


(ra) 


bne 


1 f 




r t s 


DC 


// 


c 1 r 


( r a ) 


// 


r t s 


DC 





cmp 


(ra)+. 


( ra) 


bne 


1 f 




r t s 


DC 


// 



mov $l,(r^) // 



// FALSE into stack 

// TRUE into stack 

TRUE or FALSE in stack? 
// TRUE before set FALSE 

// FALSE before set TRUE 



both the same so AND is correct 
different AND => FALSE 



both the same so OR is correct 
different => TRUE 



COMPAR ,s 
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-iSjsSfHS'SrfS- ■ 



XOR 



r t 5 


PC 




• 

• 

Cmp 


( r ^ ) + / ( r '4 ) 




beq 


1 f 




mo V 


$l , ( ra) 


// different XOR => TRUE 


r t s 


DC 




c 1 r 


(ra) 


//same XOR => FALSE 


r t s 


DC 
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CSET . s 



.qlobi CSET,CRET 
• globl «-ndiqit»ERRORfStrm\/ 

.text 
CSET : 

mov (r^*) + ,r5 
mov (so)+,rO 

mov sp/stacksave / save old stack pointer for choo 

Cmp $0fr3 

beq 3 f 

mov She re » rS 

1 : 

mov (r^)+,r2 
j mp *2 f ( r 2 ) 
here: 

sob r 3 , I b 



3 ; 

j mo * r 0 



2 : 



/ table o t actions 



i n t va 1 
f 1 oat va 1 
db 1 V a 1 
c ha rva 1 
soec i a 1 
i nt array 
floatarray 
db 1 a ray 
charstrinq 
special 

i n t V a 1 : 

mov f *(r^) + »frO 
mov f i f r 0 , r2 
mov r2 » - ( so ) 
j mo * r5 
f 1 oa t va 1 ; 

movf *(r^)+»frO 
se t f 

movf frO»-(so) 
set d 

j mo * r5 

db 1 V a 1 t 

movf *(r^)+»frO 
movf frOf-(so) 
j mp * r 5 
db 1 a r ay : 

tst (r^)+ /throwaway dooevector info 

mov (r^)<-r-(sp) / out address in stack 

j mp * r5 
floatarray; 
i n t a r r ay ; 



j s r r5 » ERROR 
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<**ERROR** unimtDlemented 



c h a r V a I : 



tst 


(r^)+ / 


mo vb 


*(ril) + »- (sp) 


j mp 


*r5 


charstring: 


tst 


(ra)+ / 


mov 


(rA)tf-(so) 


j mp 


* r5 


spec i a 1 : 


mov 


*(ry)+f-(sn) 


j mp 


* r5 



throw away 



throw away 



cal) OD t i on\0> ; 
1 eng t h 



length 



CRET : 

mov (so)+frl 
mov stacksave/SD 
set d 

tst 2(ra) 
beg 1 f 



mov ( r y ) +■ f r 2 
j mp *2 f ( r2 ) 



2 ; 

1 n t r e t 
f 1 oa t re t 
db 1 ret 
char ret 
spec re t 
i n t ot r 
f 1 oa t D t r 
db 1 pt r 
c h a r 0 1 r 
soec ret 



i n t r e t : 

tst (r^)t / throwaway oummy 

mov if rO f f r 0 
mov f frO^*(r^l) + 

j mp * r 1 
f 1 oa t r e t : 

tst (ry)+ / throwaway dummy 

se t f 

clrf a(ra) 

mov f frOf*(r^l) + 

se t d 

j mp * r 1 

db 1 re t 5 

tst (ry)+ / throwaway dummy 

mov f frOf*(r^) + 
j mp * r 1 



1 5R 



• even 



char ret 



1 



t st 


( ) + 


/ 


throw away dummy 


mo vb 


r 0 » ( ) 






mo vb 


5 ' \0, 1 ( ra ) 






cmp 


+ / (r^) + 


/throw away old length and addr 


j mp 


* r 1 






c h a ro t r : 








t s t 


( ) + 


/ 


throw away dummy 


mo V 


( ) •♦• > r 3 


/ 


get address 


mo V 


(p4)+,r2 


/ 


get ola length 


mo V 


r 3 » - ( ) 


/ 


restore address on bottom ^ 


mo V 


p 2 / - ( p^ ) 


/ 


restore length on top 


mo V 


pO»”(py) 


/ 


new string address 


mo V 


S77777, -( pa) 


/dummy 1 en to force use of old len 


j sr 


pc » s t pm V 






j mp 


* p 1 






Spec ret : 








t s t 


(pa)f 


/ 


throw away dummy 


mo V 


pO » * ( pa ) + 


/ 


move oo inter into olace 


j mp 


* p t 






i n t p t r : 








f 1 oa t pt r : 








db 1 p t r : 








j s r 


p5, ERROR 







<^*ERROR*^ un 1 mo 1 emen t ed call ootion\0>; .even 

1: / procedure calls come here clean stack 

charuse = 6 
char Duse = 16 



cmp 


(ra),$charuse 


/ 


check for 


c h a r call 


with a 


pa rm s 


beg 


2f 












cmp 


( pa) +, SchapDuse 


/ 


check for 


c h a r call 


with a 


pa rm s 


beg 


2f 












cmp 


( ra) + , ( pa) + 


/ 


throwaway 


unneeded 


f unc t i on 


addrs 


j mp 
2: 


* p 1 












cmp 


( pa ) + , ( pa ) + 


/ 


throwaway 


unneeded 


function 


aod r s 


t S t 


( pa) + 


/ 


throwaway 


unneeded 


f u n c t i on 


add r s 



j mp * r 1 






s t acksave 



DOPCAL.s 



•g 1 ob 1 


DOPCAL 




.text 
DOPCAL : 


mo V 


S 0 f dc t mp 




mo V 


^(r^)fpO 


/get number of subscripts 


mo V 


(r4)f^rl 


/move address of dooe vector 


1 nc 


r 1 


/move to fisrt dope value 


i nc 


r 1 




mo V 


$8, r2 


/the first displacement is 1 


TOPC : 


mu 1 


(r^)+fr2 




add 


r 3 , dc t mo 




mo V 


( r 1 ) + f r2 




SOD 


rO, TOPC 




mo V 


dc t 'np f r 3 




add 


( ) / r 3 


/add in the base of the array 


mo V 


r3, ( ra ) 


/leave the address in the stack 


r t s 


pc 




.data 


dc t mo : 


0 / 


temporary for calculation 
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4 



■« 

I 



ERROR . s 



. g 1 ob 1 
ERROR : 

1 : 



2 ; 

e rc h ; 



ERROR 



mov $2 » rO 

movb (r5)+/ 
beq 2 f 

sys write; 
b r lb 

sys exit 
. = . t2 



e r c h 

e rc h ; 1 
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OPEN.s 



.globl OPEN, CLOSE, SERROR, FCLOSE 
.globl ED, EDO, fooen,fcreat/ERROP, flush 
• text 

OPEN; 



mo V 


( r ) + , r 1 


/mode 






mo V 


( riJ ) + , r 0 


/address 


of name 




mo V 


r 0 , r2 








mo V 


SEDO, r3 


/open flags 




add 


( r ^ , r 3 


/select 


CO r rec t 


f 1 aq 


t s t 


(r3) 


/open or 


closed 




beq 


1 f 








j sr 


r5,SERR0R 








<attempted to reopen 


: \0>; 


.even 




• 

i nc 


(r3) 








mov 


SED, r3 


/buffer 


base 




add 


( r ^ ) +■ , r 3 


/se 1 ec t 


correct 


buffer 


j mp 


*3f (rl ) 


/select 


mode 




• 

• 




/table of modes 




RANDO 

ROPEN 

CREATE 

APPEND 











RANDO; 

jsr r5,SERROR 

<un i mp 1 emen t ed random access: \0>; .even 



ROPEN: 



mov 


(r3),3f 


j sr 


r 5 , f open ; 3 ; 


bes 


EILERROR 


r t s 


PC 


CREATE; 


mov 


( r3) , 3f 


j sr 


r5,fcreat; 3; 


Des 


EILERROR 


r t s 


pc 


APPEND; 


mov 


rO, 3f 


sy s 


open; 3: 0; 


bes 


eilearror 


mov 


r0,*(r3) 


mov 


S51E .,*2(r3) 


mov 


r3, r2 


add 


$6 , r2 


mov 


r2 , ( r3 ) 


mov 


’►(r3), rO 


sy s 


seek; 0 ; 2 



163 




1 1 1 



r t s pc 

FILERROR: 

jsr r5,SERROR 
<file open error: \0> 

FILEARROR: 

jsr r5, ERROR 

<error on open for apDend\n\0>? 

SERROR: 

1 : 

mov / r 0 

movb (r5)+»sech 
beq 2 i 

sys write; sech; 1 
b r lb 
2: 

mov S2 / r 0 
movb ( r 2 ) + , sec h 
beq 3 f 

sys write; sech; 1 
b r 2b 
3: 

mov $2 > r 0 
mov S ' \n , sec h 
sys write; sech; 1 
sys exit 



CLOSE: 



mov 


$FD, r3 


add 


( ra) , r3 


mov 


(r3) ,2f 


j sr 


r S » f 1 u s h 


mov 


* ( r 3 ) f r 0 


sys 


close 


mov 


$FD0, r3 


add 


( r a ) + , r 3 


c 1 r 


( r3) 


r t s 


PC 


FCLOSE: 


mov 


$ia . , rl 


mov 


$FD, r2 


mov 


SFDO, r3 


1 : 


t s t 


(r3) 


beq 


2f 


mov 


( r2) , 3f 


j sr 


r5» f 1 ush 


mov 


* ( r 2 ) f r 0 


sys 


close 


2: 


add 


S2, r2 


add 


S2, r3 



.even 
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sob r 1 , 1 b 
rt s DC 
.data 
sec h : 0 



IbS 



REAOF.s 

.q1obl'READF,READFN,REAOFS,READFE 
.globi FO/FDO/qetc 
• text 



READF : 




mov 


$FD/ r2 


add 


( r y ) t , r 2 


mov 


(r2) , READFILE 


r t s 


pc 


.data 





READFILE: 0 

. g 1 ob 1 ERROR 
.text 
READFN: 

mov $rnumbst/r3 

fpov $23 .»rl /length of number limited to 23 digits 
c 1 r r 2 

1 : 

mov READFlLE/2f /standard inout 

jsr rS^getc; 2: 0 

bes badread 

movb rOrrch 

c mob $ ' 9 / re h 

bit b f 

C mob $ ' 0 , re h 
bgt 2 f 

movb rch/(r3)+ 
sob r 1 , 1 b 
b p 6 f 

2: 

empb $ ' / rch 

beg 3 f 

empo $ ' \t / rch 
beg 3 f 

emob $ ' . ^ r c h 

beg 5 f 

empb $ ' -/ rch 
beg ^ f 

empb $ ' + , re h 
beg 3 f 
b r 6 f 
3: 

emp r3/Srnumbst 
beg lb 

emp r 3 / $ r numb s t + 1 
bne 6 f 
t s t r2 
bne 6 f 
sob r 1 / 1 b 

a : 

emp r3/$rnumpst 
bne b f 



I bb 



movb rch,(r3)+ 
b r lb 
5: 

t s t r2 
bne 6 f 

nno vb pch»(p3)t 
i n c p 2 
sob p 1 / 1 b 

6 : 

t s t p2 
bne 

movb S' ,f(p3)t 

2; 

movb S*\0 /(p 3) 
mov $ pnumbs t f ” ( p'U ) 

p t S DC 

badpead ; 

jsp pS^ERROR 

<ERROR bad system call RE^0FN\n\0> 
• even 
.data 

PC h : . = . +2 

pnumbst : . = . +2^ . 



.qlobl ERROR 
.text 
READFS: 

mov ( p^ ) + » p 1 
mov (p^)+/p2 

1 : 

mov READFlLE^2f 
jsp p5»qetc; 2: 0 
bes badspead 
movb pO/SPch 
cmob $*\n/SPCh 
beq 2 f 

cmpb $ ' ” » s PC h 
beq 2 f 

movb spch»(p2)-t- 
sob p I # 1 b 
2 : movb S ' \0 f ( p 2 ) 
p t s pc 
bads pead : 

jsp pS/ERROR 
<ERROR bad system 



/lenqth to be read 
/address 

/default input 



/out charactep in place 
/string full yet? 

/all strings end in null 



11 REAOFS\n\0>; .even 



s PC h : . = . +2 



READFE: 
1 : 
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5 



I 





mo V 


READFILE,2f 


j sr 


r5,qetc ! 2: 


bes 


2f 


C mpb 


$ ' \n f rO 


bne 

« 


lb 


• 

r t s 


pc 
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SDCAL . s 



. g 1 ob 1 SDCAL 
.text 
SDCAL: 



mo V f 


*(ry)+, frO 










mo V f i 


f r 0 / r2 










mo V 


( ra ) , r 1 




// 


save length for 


later 


i nc 


( ) 




// 


auamen t length 


by null 


mu 1 


( ry ) +, r2 


// 


mult 


iply by length 




add 


p3, ( ra ) 


// 


add 


disolacement to 


base 


mo V 


r 1 , - ( ry ) 


// 


restore the length 




r t s 


pc 
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SUBSTR.s 



. q 1 Ob 1 


SUBSTR 




.text 

SUBSTR: 


mo V f 


*(r^)+/ frO 


// 


mo V f 


*(r4)+,frl 


// 


mo V 


( r ) + / r 1 


// 


mo V f i 


f r 1 / r2 




dec 


r 2 




cmp 


r 2 / r 1 




bqe 


1 f 


// 


mo V f i 


f r 0 f r 3 




add 


r 3 / r2 




cmp 


r 2 / r 1 




bqe 


2f - 


// 


m o V f 1 


f r 1 , r 2 


// 


dec 


r2 




add 


r 2 / ( r y ) 


// al 


m 0 V f 1 


fr0/-(r^) 


// 


r t s 


pc 




1 : 


add 


r 1 / ( ) 


// 


mo V 


5 1 ,-(ra) 


// 


r t s 


pc 




2: 


sub 


r 1 / r2 


// 


mo V f i 


f r 1 , r 5 




add 


r 3 / ( r y ) 


// 


mo V f i 


t r 0 f r 3 


// 


sub 


r2/ r3 




mo V 


r 3 , - ( r y ) 


// 


r t s 


pc 





length of substr 
starting offset 
length of string 



too long 



Start+length too far 
all OK 

ter address by starting oyte 
new length into stack 



Doint to end of strino(NULL) 
length now 1 

how much too big??? 

new starting address 
aet length again 

new 1 engt h 
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• -’1 

"'i 




■i 



■^1 



f 




WRITF.s 



.gl obi WRITF,WRITFN,^^RITFS, WRITFE 
.globi FDrFOOfOutc 
• text 

WRITF: 

mo V SFD / r2 

add ( f r2 
mov (r2) /WRITFILE 
r t s pc 
.data 

WRIIFILE: 0 



.globi nod i g i t » f 1 o t e r / ERROR 
.text 
WRI [FN; 

mov Swnumbr/ r3 
jsr oc/floter 

1 : 

mov Swnumb r / r 3 
mov nod i g i t / r2 

1 : 

movb ( r3 ) + / rO 
mov wRITFILE,2f 
jsr rSfOutc? 2: 0 

sob r2 / 1 b 
movb S' fPO 
mov WRITFILE,2f 
jsr rSfputc; 2: 0 

r t s pc 

wnumb r : . = . + 2 ^ . 



. g 1 Ob 1 ERROR 
.text 
WRITES: 

mov (ry)+/rl 

mov (ri}) + /r2 

1 : 

mov WRITFILE/2f 
movb ( r 2 ) + f r 0 
beg 5f 

jsr rS/PutC/ 2: 0 

sob r 1 , 1 b 

r t s pc 

5: 
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mo vb S' f rO 



mo V 
j sr 
sob 
r t s 

WRITFE: 


WRlTFILE,2f 
r5 , DU t c ; 2: 
r 1 f 5b 
pc 


mo vb 
mo V 
j sr 
r t s 


S' OrO 

WRITFILE,2f 
r5 f DU t c ; 2 : 

DC 



0 



asc . s 



• g 1 ob 1 
• text 
asc : 
t St 
mo V 
mo vb 
mo V i 
r t s 



asc 



( r4) + 

( ) + / r 1 
(rl) r r2 
r2 / f r 0 
PC 



/ pop stack 
/ address" of string 
/ retrieve character 

/ convert into a floating ot number 
/ for return 



173 



1 



a t o f . s 



/ f = atof(D) 

/ char *oi 

Idfps = ITOlOOrtst 
stfps = 170200ttst 

.globi atof 



a t o f : 



stfps 




-(sol 




Idfps 




5200 




mo V f 






f r 1 » - ( so ) 


c 1 r 


- ( so 


) 




c ) r f 






f r 0 




C 1 r 


r2 








mo V 


( ra ) 


+ ,r3 




mo vb 






( r3)+. 


rO 


cmp 


$ ' 




rO 




beq 


lb 








cmpb 






0 

bf* 

1 




bne 


2f 








i nc 


( sp ) 






mo vb 






(r3)+. 


r 0 


sub 


$ ' 0 


/ 


rO 




cmp 


rO / 


S9. 




bh i 


2f 








j sr 


pc » 


d 


i g i t a f 







br 


lb 






1 nc 


r2 








b r 


lb 








cmpb 




rO , 


5 ' . 


-•0 


bne 


2f 








mo vb 




( r3) +, 


rO 


sub 


s • 0 


» r 0 






cmp 


rO , 


$9. 






bh 1 


2f 








j s r 


pc f 


d i o i 


t a f 






dec 


r2 






b r 


lb 








c mpb 




rO , 


5 •£ 


- ' 0 


beq 


3f 








cmpb 




rO, 


S'e 


- ' 0 


bne 


1 f 








C 1 r 


r a 









1 7 a 



3 : 



3: 



3: 
1 : 



1 : 



1 : 
2 : 



1 : 



2 ; 



c ] r 


r 1 


CnPDb 


( r3) / $ ' - 


bne 


3f 


i nc 


rU 


i nc 


r3 


mo V b 


( r3) +/ rO 


sub 


o 

o 


cmp 


r 0 / $9 . 


bh i 


3f 


mu 1 


$10. , rl 


add 


r 0 / r 1 


b r 


3b 


t St 


ra 


bne 


3f 


neg 


r 1 


sub 


r\,r2 


mov f 


$one / f r 1 


mov 


r 2 / - ( sp ) 


beq 


2f 


bg t 


1 f 


neg 


r2 


cmp 


r2, $38. 


bios 


1 f 


c 1 r ^ 


f rO 


t s t 


( sp ) +■ 


bm 1 


out a f 


mo V f 


$huge / f rO 


b r 


out a f 


mu 1 f 


$ t en # f r 1 


sob 


r2, lb 


t St 


( sp ) + 


bge 


1 f 


d 1 V f 


f r 1 f f r 0 


b r 


2f 


mu 1 f 


f rl , f rO 


c f cc 

b VC 


2f 


mov f 


$huoe/ frO 



ou t a f : 

t St ( so ) + 

bea 1 f 

neg f f r 0 



mov f 
IdfDS 



( so ) + ^ f r 1 
( sp ) + 



rt s pc 



/ 

/ 



d i g i t a f 


• 

• 




cmpf 




Sb i g 


c f cc 


b1 t 


1 f 




mu 1 f 




$ t en 


mo V i 


f 


rO f f 


add f 




f rl f 


r t s 


DC 




1 ; 


add 


52 


/ ( sp ) 


r t s 


pc 




/ 

/ 


one 


- 


a0200 


ten 


- 


a 1 oao 


b i q 




56200 


huge 




mil 



, f rO 



f f r 0 

r 1 
f r 0 



c h r . s 



. q 1 ob 1 c h r 
• text 
c h r : 

mov f *(ry) + >frO 
mo V f i f r 0 f r2 
bit $0177/r2 
movb r2fChr<- 
mov $chr<-/-(r4) 
mov Sl/”(r^J) 
r t s pc 



// qet number aesired 
/ guarantee a valid character 

/ leave address anq length 1 on stack 



c h r«- : 0 
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1 



.gl obi col 
.globl nodigit 
• text 
col: 

mov f *(r^) + »frO 
mo V f i f r 0 f r 1 
mov rl/Hodigit 
r t s pc 



. g 1 ob 1 


cosh 


.q 1 OD 1 


exp 


cosh : 


/ / cosh f unc t 


mo V f 


frO, coshsave 


j sr 


pc » exp 


mo V f 


f rO , cosharg 1 


mo V f 


coshsave , f rO 


neg f 


f rO 


j sr 


pc / exp 


add f 


c o s h a r q 1 » f r 0 


mu 1 f 


onenal ^ t frO 


rt s 


pc 


coshsave 


: .=.+8. 


cosnarql 


: .=.+8. 


oneha 1 f 


: 0 a 0 0 0 0 ; 0 ; 0 ; 



,5*(e**u+e** 



1 



dan r d r . s 



.globl danrdr 

.gloDl DATCNT,OATAENO,OAT A 
.text 



danrdr: 

mov DA TC'^T > r2 

add $8 . / r2 

cniD r^^SOATAENO 

bit If 

mov $DAT A / r2 

mov $2 / r 0 

mov i3 f » y f 



SYS write? 0; 56. 

br If 



3: 



<\n***RUN ERROR*** no num 



.even 

1 : 

movf *r2ffr0 
mov f fr0/*(r^) + 
mov r2»0ATCNT 
r t s DC 



data 



num 



restore 



i ssued\n\0> 



1 80 



da t rd r . s 



•globl datrar 

.gl obi STRNEXT ,STROATA , STRENO, St rmv 



.text 




da t rdr : 




mov 


( r4 ) » r 3 


add 


STRNEXT , r3 


cmo 


$STREN0^2, r3 


bqe 


1 f 


mov 


52, rO 


mov 


S3f ,af 


SYS 


write, 0; 5^. 


mov 


SSTRDATA, STRNEXT 


b r 


1 f 



3; 

<\n***RUN ERROR*** no str data str restore issued\n\0>; 
• even 
1 : 

mov (r^)»r3 // save length 



mov 


STRNEXT , - 


(ra) 


// 


move 


next 


data address into 


stack 


mov 


r3,-(r^) 




// 


dup 1 i c a t e 


String 


length for 


s t rmo V 


j sr 


PC , s t rm V 
















dec 


r 0 
















t stb 


( r 0 ) + 


// 


did 


we 


read 


a while 


string?? 




beq 

2; 


1 f 
















t stb 


(rO) + 


// 


NO 


1 OO k 


for 


the end 


of this string 



bne 2b 

1 : 

mov rO / S TRNEXT 
r t s PC 



f 1 o t e r . s 



1 df PS = 170 1 OOtt St 
stfps = 170200ttst 
/ ftoa *“ basic g fp conversion 

•globl nodigit 

/ ecvt converts frO into decimal 

/ the string o^ converted digits is pointea to by rO. 
/ the number of digits are specified by nodigit 
/ r2. contains the decimal point 
/ rl contains the sign 



f cvt ; 

c 1 r e f 1 ag 
br 1 f 
ecvt: 



mo V $1/6 


f 1 ag 


s t f os 


- ( so ) 


1 df OS 


$200 


mov f 


f r 0 / - ( so ) 


mo V f 


f r 1 / - ( so ) 


mov r3 / “ 


( so ) 


mov $buf 


/ r 1 


c 1 r r2 




c 1 r sign 




t St f 


f r 0 


c f cc 




beg zer 




bgt 1 f 




i nc sign 




neg f 


f r 0 


mod f 


Sone/ frO 


t St f 


f r 1 


c f cc 




bea 1 ss 




• 

• 

mo V f 


f r 0 / - ( so ) 


mo V f 


f r 1 , f rO 


mov $buft0P/r3 


mod f 


tenth# f r 0 


mov f 


f r 0 f f r 2 


mov f 


f rl f frO 


add f 


$eos i Ion# 


mod f 


S t en # f r 2 


m 0 V f i 


f r 3 # r 0 
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i 






add $ ' 0 / r 0 
movb r0,-(r3) 

i nc r2 

t St f f r 0 

c f cc 
bne lb 

/ 

mo V $bu f / r 1 

1 : 

movb (r3)+»(rl)+ 

cmp r3 f 5bu f t OD 
bio lb 

/ 

mov f (sol + ^frO 



b r 


pad 


ze r : 


i nc 


r2 


b r 


pad 


1 ss : 


dec 


r 2 


mod f 


$teo/frO 


t St f 


f r 1 


c f cc 


beq 


1 ss 


1 nc 


r2 


j sr 


pc » d i g i t 1 


pad : 


j sr 


pc r d i g i t 


b r 


b r out 
pad 


digit: 


cmp 


r 1 / Sou f t oo 


b h i s 


1 f 


add 


$2, (sp) 


mod f 


$ t en / f r 0 


d i g i 1 1 : 


mov f i f r 1 / rO 


add 


o 

O 


movb 


rO, ( r 1 ) + 


1 : 


r t s 


DC 


/ 

out : 


mov 


Sbu f » r 0 


add 


nod i g i t / r 0 


t s t 


e f 1 ag 


bne 


1 f 


add 


r2 / rO 



1 : 
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C mp 


r 0 , $bu f 




b 1 0 


ou t ou t 




mo vb 


(rO) , 


r 3 


add 


$5 # r 3 




mo vb 


r 3 , ( r 0 ) 


cmpb 


CrO) , 


3 • 9 


b 1 e 


1 f 




mo vb 


$ ' 0, ( 


rO) 


cmp 


rO , Sbu f 




bios 


2f 




i neb 


-( rO) 




b r 


lb 




mo vb 


3 ' 1 , C 


rO) 


i nc 


r 2 





1 ; 



out out : 


mo V 


sign/ r 1 


mo V 


nod i g i t / r 0 


t St 


eflag 


bne 


1 f 


add 


r2 / r 0 


1 : 


c 1 rb 


bu f ( r 0 ) 


mo V 


$bu f / r 0 


mo V 


( sp ) + / r 3 


mo V f 


( so ) + / f r 1 


mo V f 


(so)+/fr0 


1 df os ( sp ) + 


r t s 


PC 



epsilon = 03711U 
one = ^40200 

ten = 410^0 

.data 

tenth; 03731 ^; iab3ia; iii63ia; 
nodigit; 10. 

. bss 

buf; .=.f^0. 

bu f t op ; 
sign; .=.+2 

eflag; .=.+2 
.text 

/ C library-- floating output 
.qlobl floter 



f 1 ot er ; 

1 ; 

mo V f *(r^)+/fr0 

j sr pc / f cvt 
t St r I 



1^6315 



18a 



I 



I 



2 

I 



1 

2 



1 

1 

2 



beq I f 

movb $'-f(r3)+ 

t St r2 
bgt If 

movb $'0,(r3)+ 

cmo nodigitfr2 
j 1 e 6 f 
mo V r2 , r I 
bl e If 

movb (p0)+f(r3)+ 

sob r I / 2b 

mo V nod i g i t f r I 
beg I f 

movb $ ' . r ( p3 ) + 

neg r 2 
bl e If 

dec r I 
bit If 

movb $'0f(r3)+ 

sob r2/2b 

t St r 1 
ble 2f 

movb (rO)+V(r3)+ 

sob r I f 1 b 

r t s pc 



movb $'?/(r3)+ 
sob r2,6b 
r t s pc 



psc i en : 

mov rO, nodi git 
t s t r 2 
bne I f 

mov $6/nodigit 
I : 

mov f (r^) + /frO 

j s r pc f ec vt 
t s t r 1 
beq 1 f 

movb S'-/ (r3)+ 

I ; 

movb (p0)+/(r3)t 

movb $'./(p3)+ 
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mo V 
dec 
b 1 e 

movb 

sob 

movb 

dec 

mo V 

bqe 

movb 

neg 

b r 

movb 
C 1 r 

d i V 

add 
movb 
add 
movb 
r t s 



nod i g i t / r 1 
r 1 
1 f 

( rO) + , ( r3) + 
r 1 / 2b 

$'e, (r3)+ 
r2 

r2 » r I 
1 f 

S ' ( r3) + 
r 1 
2f 

$ ' +, ( r3) + 
r 0 

$ 1 0 . f r 0 
$ ' 0, rO 

rO / ( r3 ) + 

S ' 0, rl 

r 1 » ( r 3 ) + 
pc 
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i n t . s 



.q) obi i nt 
• text 

one = 0^0200 
i nt ; 



mo V f 


*(r4)+, f rO 


mod f 


$one» frO 


mov f 


f r 1 , f rO 


t St f 


f rO 


C f CC 




bge 


1 f 


sub 


$one / f rO 


rt s pc 
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1 en . s 



, g 1 ob 1 1 en > 1 engt h 

.text 
1 en : 
length: 

tst (r^)+ /dod off default length 

mov (.r‘4),r2 /cocy address 
c 1 r rO 

1 : 

t s t b ( r2 ) + 
beg 2 f 
i nc r 0 
b r lb 

2 ; 

movif rO,frO // length now in frO for return 

r t s pc 
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. g 1 Ob 1 1 i ndmo 

. q 1 ob 1 St dou t 
.text 



1 i ndmp : 

mo V S 1 / r 0 
mo vb $ ' 0 1 c h 
sys write; Ich; 1 
mov S80 , f s t dout +2 
, r t s pc 



mod . S 



. g ) ob 1 mod 
one * 040200 
• text 
mod : 

mov f *2(r4)ffr0 
divf ^(r4)rfr0 
mod f Sone^trO 
mu If *(r4),frl 

tst *(r4)+ // ooD stack 

mov f *(p4)^fr0 
subf f r 1 / f rO . 
r t s pc 
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nb r r d r . s 



. g I ob 1 nb r rdr 
•globl numbst/ERROR 
.text 
nb r rd r : 

mov $nurribst»r3 

mov 523 . /tI /length of nufitbep limited to 23 digits 

C 1 r r 2 

1 : 

mov SO^rO /standard input 

sys read; rch; 1 

bes badread 

Cmpb 5 ' 9 , rch 

bit b f 

cmpb 5 ' 0 , rch 
bqt 2 f 

movb rchf (r3)+ 
sob r 1 , 1 b 
b r 6 f 

2: 

cmpb 5 ' » rc h 

bed 3 f 

cmpb $ ' \t » rch 
beq 3 f 

cmpb 5 ' . , rc h 
beq 5 f 

cmpb 5'-, rch 
beq 4 f 

cmpD $ ' + , rch 
beq 3 f 
br 6f 
3; 

Cmp r3/5numbst 
beq lb 

cmp r 3 » Snumbs t 1 1 
one b f 
t s t r2 
bne of 
sob r 1 , 1 b 
4 : 

cmp r 3 / Snumbs t 
bne b f 

movb rch,(r3)t 
b r lb 

5: 

t s t r 2 
bne b f 

movb rchf (r3)+ 
i nc r 2 
sob r 1 f 1 b 
b : 

t St r2 
bne 2 f 

movb S' . , ( r 3 ) + 
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2 



(Dovb $ ' \0 , ( r3 ) 
mov Snumbs t f - ( ) 
r t s DC 
badread : 

j s r r5 , ERROR 
<ERR0R bad system call 
.even 
.data 

rch: .=.+2 

numbst: .=.+^0. 



nbrrdr\n\0> 
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nump t r . s 

•globl numptr 

.qlobl numbrfnodiqit/Stdout/flotePfl indmp, ERROR 



.text 
nump t r : 


mo V 


Snufnb r , r 5 


j sr 


pc f f 1 o t e r 


sub 


nodiqit/Stdout+2 


t s t 


St dout +2 


bq t 


1 f 


i sr 


PC * 1 i ndmp 


mo V 


S80 . / stdout +2 


1 : 


mo V 


Sngmb r f r 3 


mo V 


n o d i q 1 t r r 2 


2: 


mo V 


$1 / rO 


mo vb 


(r3)+fnch 


sy s 


write? neb? 1 


sob 


r 2 / 2b 


mo V 


3 1 , rO 


mo vb 


$ * / nc h 


sy s 


write f nch? 1 


r t s 


PC 



nch* 
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r ad . s 



.ql ob 1 


radfdeq 


.text 




rad : 




mu 1 f 


p i > f r 0 


r t s 


pc 


D i : 


036616; 0175065; 01122 a; 016a706 


deg ; 






mu 1 f rd«- f f rO 




r t s PC 


rd<- : 


oai5a5; 0273 ao; oi5ia36; 07703 
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r nd . s 



. g 1 ob 1 rod 
. g 1 ob 1 rand 
maxplusone = 



rnd : 




j sr 


DC » rand 


mo V i f 


rO f f r 0 


d 1 V f 


Smaxol usone» frO 


r t s 


PC 
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s i n h . s 



. g 1 ob 1 


s i n h 


•g1 obi 


e xo 


• text 




oneha 1 f 


= oaoooo 


s i n h : 


/ / s 1 n h f u 1 


mo V f 


f rO ^ s 1 nhsa ve 


neg f 


f r 0 


j sr 


pc # exD 


mo V f 


frO^sinharql 


mo V f 


s i nhsa ve ^ f rO 


j s r 


pc f exp 


sub f 


sinhargl/frO 


mu 1 f 


onehal frO 


r t s 


pc 


s i nh sa ve 


: . = . +8 • 


s i n h a rq 1 


: • = . +8 . 



.5* (e^^u-e^^-u) 
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.... 






s t rc mp . s 



,ql ODI St rcmp 



.text 










s t rcmp : 










mo V 


( ) + , r2 








mo V 


( ri| ) + , r 1 








mo V 


( ra) +, r3 








mov 


(r9)+»r0 








C 1 r 


r 2 








c 1 r 


r3 








1 : 










mo vb 


( rO ) + / r2 








beq 


2f 








mo vb 


( r 1 ) + » r 3 








beq 


5f 








c mpb 


r2, r3 








bl t 


4f 








bqt 


5f 








br lb 








2: 










mo vb 


( r 1 ) + , r3 


/check to 


make 


sure not 


bne 


af 








mov 


so, -(pa) 


/ set 


f 1 aa 


to equal 


r t s 


pc 








a: 










mov 


SI , r3 


/ set less than 




neg 


r3 / -1 


1 is less than 






mov 


r 3 , - ( r4 ) 








r t s 


PC 








5: 










mov 


SI ,-(r4) 








r t s 


pc 
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i 



S t rdirp . s 



. g 1 ob 1 


s t r dmo 


. g 1 ob 1 


stdout / ChfRumbTf 1 indmo 


.text 




s t rdmp : 




mov 


( r ^ ) + / r 5 


mo V 


r 3 f r 1 


sub 


r5fStdout+2 


t St 


stdout +2 


bgt 


1 f / need a new 


j sr 


pc » 1 i ndmp 


mov 


S80.fStdout+2 


1 : mov 


( r ^ / r 2 


2: 




mov 


$1 , rO 


mo vb 


( r2 ) + f ch 


beg 


5f 


sy s 


write? c h ; 1 


sob 


r 1 / 2b 


r t s 


pc 


5: 




mov 


$l , rO 


mo vb 


S' ,ch 


sy s 


write r c h ; 1 


sob 


r 1 / 5b 


r t s 


pc 


.data 




numb r ; 


. = . +20. 


c h : 


. = . +2 


s t dou t : 1 


; 80 . ; 0 



ERROR 



i n e 



s t r rd r . s 



.globl strrdr 
,globl ERROR 
• text 
strrdr; 



mov ( r ^4 ) ■♦■ » r 1 
mov (r44) + ,r2 

1 : 

mov $0 » rO 

sy s read ; s rc h ; I 
bes badread 
cmpb 5 ' \n » s rc h 
beg 2 f 

cmpb $'"fSrch 
beq 2 f 

movb srch^ (r2)+ 
sob r 1 » 1 b 
2 ; movb $'\0> (r2) 
r t s PC 
bad read : 

jsr r5, ERROR 
<ERR0R bad system 



/length to be read 
/address 

/default i nou t 



/put character in 
/string full yet? 
/all strings end i 



call strrdr\n\0>; 



srch: .=.+2 



place 
n null 

.even 
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t ab . s 



.glob) tab 
, g 1 Ob 1 s t dou t 
.text 
t ab : 



mo V f 


*(ra)+, frO 


// 


t ab 


value 


mo V f i 

• 


f r 0 , r 3 








• 

cmo 


$80. , r3 








bge 


2f 








sub 


$8 0 . f r 3 








b r 
• 


lb 








• 

mo V 


stdout+2/p2 




// 


char left 


mo V 


$8 0. , rl 








sub 


r 3 f r 1 


// 


char 


needed at end 


cmp 


r 1 / r 2 








b 1 t 


3f //if 


ge or 


at 


already there 


mo V 


rl /stdout+2 


// 


new 


end 


sub 


r 1 / r 2 


// 


how 


many b 1 anks? 


mo V 


stdout t 








mo vb 


$ ' , t c h 








sy s 


write? tch; 1 








sob 

• 


r 2 / y b 








• 

r t s 


PC 








data 










• 


. = .+2 
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t an . s 



. q 1 ob 1 tan 
•globl coSfSin 
• text 

tan: // tan function sin/cos 

.qlobl COS/S in 

mov f frOrtansave 
j s r pc / cos 
movf frOftancos 
movf tansave/frO 
j s r p c / s i n 

movf tancosffrl // test for div by 0 ans infinity 

t s t f f r 1 
c f cc 
beq I f 

divf frl/frO 
r t s pc 
1 : 

movf hupees t » f r I 

tstf frO // plus or minus infinity?? 

c f cc 

bpe 2 f 
neg f f r 1 
2 : 

mov f frl/frO 
r t s PC 

t ansave : . = . +8 . 

t ancos : , = . +8 . 

huqeest: 077777; 177777; 177777; 177777 
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V a 1 . s 



. g 1 ob 1 V a 1 
.text 
V a ) : 

mov $numvst»r3 

tst (r^)+ / dod stack 

mov (r4)+fr0 / get starting address 

mov 52^.frl /length of number linited to 22 digits 

c 1 r r 2 

movb $'0»(r3)+ / insure at least a zero 

1 : 

movb (rO)+/vch 
cmpb $ ' 9, vch 
bit 6f 

cmpb $'0»vch 
bqt 2 f 

movb vch,(r3)+ 
sob r 1 , 1 b 
br 6f 

2: 

cmpb $ ' » VC h 

beg 3 f 

cmpb $ ' » VC h 

beg 3 f 

cmpb $ ' . f VC h 
beg 5 f 

cmpb $'“»vch 
beg 9 f 

cmpb S' + f VC h 
beg 3 f 
b r 6 f 
3: 

Cmp r3/Snumvst 
beg 1 b 

cmp r3fSnumvst+l 
bne b f 
tst r 2 
bne 6 f 
sob r I / 1 b 
a : 

cmp r 3 ^ Snumvs t 
bne 6 f 

movb vch/(r3)+ 
b r lb 
5: 

tst r2 
bne 6 f 

movb vch» (r3)+ 
i n c r 2 
sob r 1 , 1 b 

6 : 

tst r2 
bne 2 f 

movb S' (r3) + 
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3 










s 



1 






2 



mo vb 


J *0. (r3) 


mo V 


vSnumvst f 


r t s 


DC 


.data 


VC h : 


. = . +2 


num V s t ; 


.=.+2a. 



( ra) 



PROGRAM LISTING - UNIX EXECUTIVE PROGRAM 



i n t 


c f 1 ag ; 


i n t 


Iflag; 


i n t 


0 f 1 ag ; 


i n t 


r f 1 ag ; 


1 n t 


s f 1 ag ; 


} n t 


t f 1 ag ; 


i n t 


V f 1 ag ; 



char *av 150] ; 

char *bprog; 

char *llistt50]; 

char *ql "/usr/qraDh/conie.o"» 

char *q2 "/usr/lib/libt.a"? 

char *q3 "/usr/graoh/rmtksub.o'*; 

char *q4 "/usr/qraoh/moresub.o''; 

char *q5 "/usr/graoh/vq.a"T 

char *pass0 "/usr/basic/baxcompS'*; 

char *passl "/bin/as”/ 

char *pass2 ”/bin/ld"; 

char *pass3 "/bin/rm"; 

char tsIlOOOl; 

char *tsp ts» 

main (argc» argv) 
char *arqv [ ] ; { 

char * t » 

int i , it bflao/ nl» nxo; 



i=bf1ag=nl=nxo=0; 
while ( + + i < a rqc ) { 

if (argviil (Oi == 

Switch (argviil ill) ( 
de f au 1 t : 

goto oassa ; 

case 'S': //produce as-Ianguage file 

s f 1 ag + + » 
b f 1 ag + + ; 
break: 

case 'o': //produce object file 

o f 1 ag +■ + : 
break; 



case ' C ' : 



//aooena C library for loader 



1 f 1 ag + + ; 
break; 

case 'c': //aopend conograohics library 

c f 1 aq + + ; 

1 f 1 ao + + ; 
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> 

else { 
pas sa : 
t : 
i f 



) 

i f 



break ; 
case ' t ' ; 

t f 1 ag + + ; 
1 f 1 aq + •(• ; 
break; 

' r ’ : 

r f 1 ag + + ; 
1 f I aq + +• ; 
break; 

* ' V ' : 

V f 1 ag + + ; 
1 f 1 aq •*• + ; 
break ; 



: a r g V ( i 1 ; 

(get suf ( t ) == ' b ' ) { 

' b f 1 ag + + ; 
bproq = t; 
t = setsuf(t^*o'); 

(nodup(11ist/t)) { 
11istlnl++] = t; 



//aopend tektronics library 



//apoend ramtek library 



//aooend v q library 



//is file.b an argument? 



//if SO/ create file.o 

//does file.? exist as a 
// previous argument? 



if (getsuf(t) == 'o') //is argument file.o 

n xo + + ; 



} 

if ( 1 b f 1 ag ) 

goto nocom; //no file.b source program 

avlO] = "baxcomp"; // available for compilation 

a V 1 1 ] = bP roq ! 

avl2] = O; 

if ( c a 1 1 s y s ( pa s s 0 / a V ) i= 0) { 

printff" Procedure terminated at compilation state. \n"); 
e X i t { ) ; 

} 



if ( 1 ( b f 1 ag ! I o f 1 ag ) ) exitC ); 

t = s e t su f ( bp r og / ' s ' ) ; 

avlO) = "as"; 

av m = ; 

av [2] = t ; 

av(3) = O; 

cal 1 sys (pass 1 / av ) ; 

if ( o f 1 ag ) ( 

t = se t su f ( bp r og / ' o ' ) ; 
un 1 i n k ( t ) ; 

if (link("a.out"/t)) 

printf("link fail %s\n"/t); 
uni ink("a.out"); 
ex i t ( ) ; 



) 



nocom ; 
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i = 0 ; 

avtO] = "Id"; 
avtn = "-X"; 
if (lb flag) 

av(2) = t; 

else 

av(21 = "a.out"; 

av[31 = "/usr/basic/basiclib.a"; 

j = a; 

while (j<nl+3) 





a V [ j + + 1 


z 


Hist 


1 1 + i J ; 


i f 


( c f 1 ag ) 










a V 1 j + + 1 


r 


gi ' 




i f 


( t f 1 ag ) 


{ 




//t h ree passes 




a V 1 j + + 3 


= 




/ / a r c h i V i ng o f 




av 1 j + + 1 


r 


g2; 




) 

i f 


av C j + + } 


- 


g2; 




( r f 1 ag ) 


{ 








av [ j t + 3 


r 


g3; 




> 

i f 


av t j + + 3 




ga ; 




( V f 1 aq ) 










av 1 j t + J 


= 


gs; 




i f 


( 1 f 1 ag) 










av t j t + ] 


r 


" - 1 c " 




av C j + + ) = " 


- 1 a 


If • 
t / 




a V 


O 

II 


r 







if (c a 1 1 s V s ( pas s2 » a V ) 1= 0) { 

printfC" Procedure terminated at load state. \n"); 
e X i t ( ) ; 

> 

if (sflag) exitC ); 
t = setsuf(t»'s'); 
avCO) = "rm"; 

avin = t; 
avl2) = O; 

callsys(pass3»av); //remove file.s since not soecified 
ex i t ( ) ; 



qe t su f ( as ) 
char as (1 ; 
{ 



reg i 


s t e r 


i n t c 


t 


req 1 


s t e r 


char 


*s ; 


r eg i 


s t e r 


i nt t 


f 


s = 


as ; 






c = 


o; 






w h i 1 


e ( t = 


* s + + 


) 




if (t 


= = • / ' 


) 




c 


= o; 






else 
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C + + ; 



s = - 3 ; 

if (c<=ia && c>2 && *s++=='.’) 
return(*s) ; 
return(O) ; 



setsufCas/ cH) 
char as n ; 

register char +S/ *si; 

s = s 1 = copy ( as ) ; 
w h i 1 e ( * s ) 

if ( *s + + == ' / ' ) 

si = s ; 
s [- 1 J = c h ; 
r e t u rn ( s 1 ) ; 



callsys(f/ v) 
char i U f *vU; { 
int t/ status; 

if ( (t = fork( ) )= = 0) { 

execv(f/ v); 

or intf(" Can’t find %s\n"/ f); 

ex i t ( 1 ) ; 

> else 

if ( t == - 1 ) { 

printf("Try aqain\n"); 
r e t u rn ( 1 ) ; 

} 

while(tl=wait(i^status)); 
if ( (t = (status&0377 ) ) != 0 t I = 1 ) { 

if (tl=2) /* interrupt */ 

printf("Fatal error in %s\n"» f) 
e X i t ( ) ; 

1 

re t u r n ( ( s t a t us >>8 ) % 0377 ); 

} 

copy (as ) 
char as [] ; 

{ 

register char *otspf *s; 

otsp = tsp; 
s = as; 

while(*tsp++ = +S++); 
return(otsp) ; 



nodup ( I / os ) 
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char *os? 

{ 

register char *s; 

register int c» 

s = os ; 

if (getsuf(s) != 'o') 
return(l); 
while(t = *1++) { 

rthi1e(c = *s++) 

if (c 1= *t t + ) 
break; 

i f (*t=='\0' && c = ='\0* ) 

return(O) ; 
s = os ; 

) 

r e t u r n ( 1 ) ; 

> 
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